Thread Anzahl von Subordnern in Hauptordner beschränken (13 answers)
Opened by donlenardo at 2012-07-02 15:56

donlenardo
 2012-07-03 15:16
#159539 #159539
User since
2012-01-24
16 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich habe den Code bereits vervollständigt und Perl beschränkt mir die Verzeichnisse im entsprechenden Hauptordner.
Nur leider werden derzeit immer die Neuesten Subordner gelöscht, es sollten aber die (chronologisch) Ältesten sein.

Wie könnte man dies umkehren?

So sieht mein Code derzeit aus:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub shorten_dir
                {
                        my $dirResults = shift;
                        my $maxRes = shift;
                        return 0 unless( opendir(my $dh, $dirResults) );
                        my @dirs = sort{$a->[1] <=> $b->[1]} map {[$_, -M $_]} grep {-d $_} map {"$dirResults/$_"} readdir($dh);
                        closedir($dh);
                        remove_dir(shift(@dirs)->[0]) while(@dirs>$maxRes);
                        return 1;
                }

                sub remove_dir
                {
                        my $dirDel=shift;
                        #print "\n".$dirDel."\n";
                        return unless(-d $dirDel);
                        chdir(".$dirResults");
                        system ("rm -rf ".$dirDel."");
                        print "\n\nOK, Verzeichnis ".$dirDel." geloescht!\n";

                }


Markus
Last edited: 2012-07-03 15:17:43 +0200 (CEST)

View full thread Anzahl von Subordnern in Hauptordner beschränken