Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    my $newfile = $random->randpattern('.' x length $oldname) . '.jpg'
+;
    print "$oldfile will be renamed $newfile\n";
}
  2. or download this
    14:18 >perl 1230_SoPW.pl
picture.jpg will be renamed O^aK&!R.jpg

14:19 >