Alle Dateien, die älter als 24h sind löschen

[Erwin]

moin,

weil heute Sonntag ist:

my $dir = '/windows/desktop/texte';
my $ext = 'txt';
my $dif = 60 * 60 * 24;
###############################################################
use strict;

Dateien einlesen

opendir DIR , $dir or die $!;
my @files = grep { /.$ext$/i } readdir DIR;
closedir DIR;

foreach my $file(@files){
 my $current_age = (stat("$dir/$file"))[9];
 my $current_time = time;
 if( ($current_time - $current_age) > $dif ){
  print "Loesche $dir/$file\n";
  # unlink "$dir/$file";
 }
}

Erwin