Help for this page

Select Code to Download

Select or download this

opendir OF, $oldFolder or die "\nCannot open dir $oldFolder: $!\n";
    
...

closedir OF;

Select or download this

while (my $name=readdir OF) {
      next if  ( ($name =~ /^\./ )||(-f $name) ); 
...
      print "\n";

}