test einer Datei - #119557 (Allgemeines zu Perl)

betterworld

2009-03-18 16:43

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

2009-03-18T15:32:41 pq
Tja das ist tricky, -M zeigt das alter der Datei zum Zeitpunkt des Script-Starts an =)
Code: (dl )
-M  Script start time minus file modification time, in days.
Du kannst stattdessen (stat $filename)[9] nehmen, das liefert dir das absolute Alter der Datei.

Vielmehr liefert es den Zeitpunkt der letzten Änderung. Das Alter erhält man, nachdem man es von der aktuellen Zeit abgezogen hat.

Ich nutze lieber File::stat, dann muss man sich die "9" nicht merken:

Code (perl): (dl )

1
2
3

use File::stat;
my $mtime = stat('file')->mtime;
my $alter = time() - $mtime;

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class