Nur aktuelle Dateien aus Verzeichnis bearbeiten

[Struppi]

so erhälst du alle Dateien ab einem gewissen Änderungsalter:

  
#!/usr/bin/perl -w  
use strict;  
  
my $dir = "./";  
my $want = 30; # geändert seit x Tagen  
  
chdir $dir;  
foreach(<*.*>)  
{  
my $last_change = int( -M );  
next if $last_change > $want;  
print "Datei: $_ zuletzt geändert vor $last_change Tagen\n";  
}  

Struppi.