Alter der Dateien abfragen (in bestehendes Script) - #149666 (Allgemeines zu Perl)

2011-06-16 15:29

User since
2003-08-04
12208 Artikel
Admin1

das alter einer datei findest du mit stat() heraus:
my ($mtime) = (stat $filename)[9];
wenn es nur ungefähr sein soll, kannst du mit den epochsekunden rechnen, ansonsten sieh dir mal CPAN:

DateTime an, um Daten zu vergleichen.

Code (perl): (dl )

my $past = DateTime->now->subtract( days => 90 );
my $file_date = DateTime->from_epoch( epoch => $mtime );
if ($file_date < $past) {
    # älter als 90 tage
}

Editiert von pq: $ eingefügt, danke linuxer
Last edited: 2011-06-16 15:43:04 +0200 (CEST)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem