Ausgabedaten von net:ssh:perl command - #103817 (Netzwerkprogrammierung und Netzwerke mit Perl)

Gast Gast

2007-12-13 12:45

Hi,

ich möchte das Alter von mehreren Dateien (im selben Verzeichnis) auf einem anderem PC abfragen, dann in einem Array speichern, damit ich die einzelnen Werte (Datum) weiterverarbeiten kann.
Allerdings hab ich da noch ein kleines Problem mit dem "als array abspeichern".

So sieht mein Code aus:

Code (perl): (dl )

my $ssh_surv = Net::SSH::Perl->new($_[1], debug => 1);
        $ssh_surv->login();

        # alter/abspeicherdatum aller .ssf dateien im ordner ermitteln (ca. 10 Dateien)
        my($out, $err, $exit) = $ssh_surv->cmd("ls -l ./pfad/*.ssf | awk '{\$6}'");
        print "$out\n";  # print nur als beispiel

Hier scheint ja klar zu sein, da $out ein skalar/string ist, dass er nicht eine liste von 10 zeilen/einträgen abspeichern kann.
Es kommt folgende Fehlermeldung
" Use of uninitialized value in concatenation (.) or string "

Wenn ich $out aber in @out ändere, bekomme ich immernoch die selbe Fehlermeldung.

Wäre nett, wenn mir jemand sagen könnte, wie das zu lösen ginge.

PS: (nur zur Info) wenn ich ls -l ./pfad/*.ssf | awk '{print $6}' in einer shell eingebe, kommt folgendes heraus:

2007-12-10
2007-12-10
2007-12-10
2007-12-13
2007-12-13
2007-12-13
2007-12-13
2007-12-10
2007-12-10
2007-12-10