Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
    $_ =~ s/ /_/g; # replacing spaces with _
    rename "$File::Find::dir/$file", "$File::Find::dir/$_"; # renaming
+ files
}
  2. or download this
    Can't cd to (/home/ivan/M1/) Some Dirname With Spaces: no such file or
+ directory
 at ./1.pl line 16