Frage Entwicklung Perl

gelöst Verzeichnisse älter als 5 Tage komplett mit Unterverzeichnissen mit PERL Skript löschen

#!c:/perl/bin/perl

# das sind module für strictes programmieren und warnungen

use strict;

use warnings;

# ein paar konstanten

use constant LOESCHEN => 0;

use constant BEHALTEN => 1;

use constant DELETED => -1;

# dein ordner wo drinne gelöscht werden soll

my $dir = "D:/SCRIPTE/ADMINISTRATOR/test1";

# das log file

my $logFile = "$dir/log.txt";

my @allFiles;

my %allFiles;

my $lastMod;

# zeitpunkt minus 5 tage also alt die dateien und ordner höchstens sein dürfen

my $back5days = (time()-(86400*5));

# hier springt er in die sub cd

&cd($dir);

# alle dateien durchgehen und schauen ob sie älter als 5 tage sind

# ordner werden automatisch auf löschen gesetzt

foreach(@allFiles) {

    $lastMod = (stat($_))[9];

    $allFiles{$_} = BEHALTEN if(($lastMod - $back5days) > 0 && -f $_);

    $allFiles{$_} = LOESCHEN if(($lastMod - $back5days) < 0 && -f $_);

    $allFiles{$_} = LOESCHEN if -d $_;

}

# die dateien löschen die älter als 5 tage sind

foreach(keys(%allFiles)) {

    if ($allFiles{$_} == LOESCHEN && -f $_) {

        $allFiles{$_} = DELETED if unlink($_);

    }

}

# die ordner löschen die leer sind

# rmdir löscht nur leere ordner

foreach(keys(%allFiles)) {

    if ($allFiles{$_} == LOESCHEN && -d $_) {

        $allFiles{$_} = DELETED if rmdir($_);

    }

}

# den ganzen spass in ne log datei schreiben

&loggen();

# logdatei schreiben

sub loggen {

    open(LOGFILE,">$logFile") or die $!;

    foreach(keys(%allFiles)) {

        print LOGFILE $_," --> ";

        print LOGFILE "File/Directory wurde geloescht...\n\n" if $allFiles{$_} == DELETED;

        print LOGFILE "File/Directory ist aktuell...\n\n" if $allFiles{$_} == BEHALTEN;

        print LOGFILE "File/Directory wurde nicht geloescht...\n\n" if $allFiles{$_} == LOESCHEN;

    }

    close(LOGFILE);

}

# diese recursive funktion geht in jeden ordner liest den inhalt aus und

# falls im inhalt ein ordner ist geht er auch in diesen und soweiter (recursiv halt)

# alle pfade von dateien und ordnern werden in ein array geschrieben damit

# man sie später löschen oder behalten kann

sub cd {

    my $dir = shift;

    my $base = $dir."/";

    my @currDir;

    opendir(DIR,$dir) or die $!;

    @currDir=readdir(DIR);

    close(DIR);

    foreach(@currDir) {

        next if $_ eq '.' or $_ eq '..';

        &cd($base.$_) if(-d $base.$_);

        push(@allFiles,$base.$_);

    }

}