Verzeichnis löschen, 1-Zeiler (gelöst) - #144753 (Allgemeines zu Perl)

topeg

2011-01-17 16:36

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Ungetestet:

Code (perl): (dl )

use File::Find;

#...

sub dir_has
{
  my $base=shift;
  my $reg=shift;
  my $ok=0;
  find(sub{ $_=~$reg && $ok++ },$base)
  return $ok;
}

Code (perl): (dl )

rmtree($server."\\".$folder) if (dir_has("$server\\$folder",$regex));

Benutze besser CPAN:

File::Spec zum zusammenfügen der Pfade. Das ist System unabhängig:

Code (perl): (dl )

use File::Spec;
my $path=File::Spec->join($server,$folder);

rmtree($path) if (dir_has($path,$regex));