Help for this page

Select Code to Download


  1. or download this
    
my $base = '/perl/bin/thisdir';
...
closedir(BASE);

print "Total changes: $count\n";
  2. or download this
    # snip..
   ( my $newfile = $_ ) =~ s/old/new/;
   rename("$base/$_", "$base/$nwewfile");
# snip..