[cgi] verwijderen subdirectory incl. onderliggende bestanden

[anoniem]

Ik ben op zoek naar cgi code welke het volgende doet: Het verwijderen van een subdirectory, [b:b4d4b414ae]indien deze ouder is dan 12 uur[/b:b4d4b414ae], incl. onderliggende bestanden. Indien mogelijk zonder extra module dan de standaard cgi module. bv. van diversen\plaatjes\ wil ik subdirectory plaatjes verwijderen, inclusief alle bestanden die in de subdirectory plaatsjes staan.

[anoniem]

Ik heb in m'n archief 2 voorbeeldjes gevonden die je misschien kan combineren. vb1 (dir leeggooien): [code:1:ffae79c3f8] #!/usr/bin/perl $dir = 'bla'; # remove files opendir (DIR, $dir) or die "unable to open $dir: $!"; chdir $dir; unlink grep { -f "$_" } readdir (DIR) or die $!; closedir(DIR); chdir ".."; # remove dir rmdir $dir or die $!; [/code:1:ffae79c3f8] vb2 (datum van files opvragen): [code:1:ffae79c3f8] #!/usr/bin/perl $dir = 'bla'; chdir $dir; # remove files opendir (DIR, $dir) or die "unable to open $dir: $!"; @files = grep { -f "$_" } readdir (DIR); closedir(DIR); for $file (@files) { ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime((stat($file))[8]); if ($year > 100) { $year += 1900; } $mon++; printf ("%s %02d-%02d-%02d %02d:%02d:%02d\n", $file, $year, $mon, $mday, $hour, $min, $sec); } [/code:1:ffae79c3f8] Overigens gaat het eerste voorbeeld ervanuit dat de directory geen subdirs meer bevat.

[anoniem]

Even een poging. #!/usr/bin/perl use File::Path; $dir = 'diversen/plaatjes'; rmtree($dir) if (-M $dir > 0.5);

[anoniem]

Ok, een ander cgi-bestandje van mij heeft diverse, uit random karakters subdirectories onder de visitor directory aangemaakt. Hoe kan ik deze indien ze ouder zijn dan 12 uur, zelfs als daar weer bestanden in staan verwijderen ?

[anoniem]

[quote:e0253991d3="waarddebon"]Ik ben op zoek naar cgi code welke het volgende doet:[/quote:e0253991d3]Helaas voor jou is dit volgens de richtlijnen van dit forum niet toegestaan. Topic gaat dus ook op slot.