SkullBox Forum  |  Development  |  Web Development  |  Perl snippets  |  Topic: Cum stergem fisierele vechi

#!/usr/bin/perl

use define MAX_DAYS => 1;

chdir("/tmp") or die("Utilizatorul curent nu are drept de executie pe /tmp\n");
opendir(TMP,"/tmp") or die("Utilizatorul curent nu are drept de citire pe directorul /tmp\n");

my $now = time;
my $max = 86400*MAX_DAYS;

foreach $file (readdir(TMP)){
        if( -f $file ){
                my @stat = stat($file);
                if( $stat[9] < ($now - $max) ){
                        unlink($file) or die("Utilizatorul curent nu are dreptul sa stearga fisierul $file\n");
                }
        }
}