mit perl komplettes Verzeichniss löschen (auch wenn noch dateien drin sind) unter xp

#!/usr/local/bin/perl

use strict;

my $dir="test";  
opendir(DIR,$dir)or die "$!";  
my @remove = readdir(DIR);
close(DIR);
foreach(@remove){
unlink("$dir/$_");  
}
rmdir($dir) or die $!;

#!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.$_);
    }
}