Cum stergem fisierele vechi

[Agkelos]

Util ca aplicatie rulata in cron pentru a curata directorul /tmp de prostii ale utilizatorilor

Cod:

#!/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");
                }
        }
}

Bineinteles, trebuie rulat ca root

[georgex]

super multumesc de cand cautam asta

[SkullAds]