Deleting Multiple Directories : rmdir « File « Perl

1. Perl
2. File
3. rmdir

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 $!;
   }
}

   
    
    
    
  

Related examples in the same category