Opened by Suppe at 2008-11-03 13:49
Du mußt nicht für j4ede abfrage einen neue Verbindung aufbauen. Du kannst es auch alles auf einmal machen. Wenn es zu viele Dateien sind kannst du zusätzlich "xargs" verwenden.
Das baut dir gleich ein Hash zusammen mit den Dateinamen als Schüssel.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $server='root@127.0.0.1'; my $ssh_cmd='/usr/bin/ssh'; my $server_cmd='stat -c "%n %X" '; my @filelist=qw(/etc/fstab /etc/passwd); my $list='"'.join('" "',@filelist).'"'; my %filestat=map{(split(/\s+(?=\d)/,$_))}map{chomp($_);$_}(`$ssh_cmd $server '$server_cmd $list'`); print Dumper(\%filestat);
Das baut dir gleich ein Hash zusammen mit den Dateinamen als Schüssel.