Package: libtimedate-perl use File::stat; "use" not allowed in expression at (gelöst) - #150327 (Allgemeines zu Perl)

Linuxer

2011-07-12 18:17

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Was mir grad noch einfiel zu dem Thema:

Schau mal in die perldoc -f -X, dort gibt es folgenden Test-Operator:

Quote
-M Script start time minus file modification time, in days.

Damit solltest Du doch recht leicht überprüfen können, ob eine Datei älter als $wert Tage ist.

Code (perl): (dl )

my $max_days = 30;

for my $file ( glob("*.*") ) {
  if ( -M $file > $max_days ) {
    print "$file is older than $max_days days.\n";
  }
}

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!