Mega Code Archive

 

Categories / Perl / File

 

Deleting Multiple Directories

#!/usr/local/bin/perl mkdir ("c:\\",0)||warn "$!"; for ($i = 0; $i < 10; $i++){   mkdir ("c:\\\\rmdir$i",0)||warn "$!"; } chdir ("c:\\Testlistings"); use Cwd; $dir = cwd(); opendir (DH, $dir) || warn $!; while ($dirName = (readdir(DH))){    if ($dirName =~ /^rm/){       print "Removing $dirName\n";       rmdir ("$dirName") || warn $!;    } }