[Cologne-pm] Zeitstempel und ftp

[A. Pagaltzis]

* johannes huettemeister <j.huettemeister at t-online.de> [2003-05-10 14:06]:
> Also probiere ich:
> my $mail_time = `rsh 192.168.0.244 "perl -le 'print
> ((stat(/tmp/mail.log))[9])' " `;
> Was aber nur einen Syntax Error zurueckwirft.

Das liegt wohl daran, dass du den Dateinamen nicht in
Anführungszeichen gesetzt hast. Da wir es mit Perl zu tun
haben, müssen es auch keine Anführungszeichen per se sein,
womit du in diesem Fall gerade noch vermeidest, in Wirrungen
mit Backslashes zu geraten.

my $mail_time = `rsh 192.168.0.244 "perl -le 'print ((stat(q[/tmp/mail.log]))[9])' " `;

Übrigens kannst du die Klammer um stat() per unärem Plus als
nicht zu print() gehörig identifizieren und dir ein
Klammernpaar sparen:

my $mail_time = `rsh 192.168.0.244 "perl -le 'print +(stat(q[/tmp/mail.log]))[9]' " `;

Das innere ist auch überflüssig:

my $mail_time = `rsh 192.168.0.244 "perl -le 'print +(stat q[/tmp/mail.log])[9]' " `;

Das sieht doch gleich viel freundlicher aus.

> Alternativ liesse sich natuerlich mittels $ftp->dir(/tmp)
> ein long listing holen, dass ich dann mit split bearbeite
> und ausserdem den Monat dann noch in eine Zahl wandeln
> muss, bevor ich Date::Calc o.ae. verwenden kann.

Wieso nicht $ftp->mdtm($file); verwenden? :)

Immer fleissig POD lesen.. ;)

-- 
Gruss,
Aristoteles