Re: Private Utilities

[Anonymous Monk]

i use this (way to often) to renumber image files so they'll sort in order.

#!/usr/bin/perl
#
# renum.pl blah*.jpg
# blah1.jpg .. blah9.jpg blah10.jpg .. blah99.jpg blah100.jpg
# -> blah001.jpg .. blah010.jpg .. blah100.jpg

foreach ( @ARGV ) {
        next unless ($stem, $digits, $ext) = /(.*?)(\d+)\.([^\.]+)$/;
        $max = $len if ($len = length( $digits )) > $max;
        print "$_ $1\n";
}
$fmt = "$stem\%0${max}d.$ext";
foreach ( @ARGV ) {
        next unless ($stem, $digits, $ext) = /(.*?)(\d+)\.([^\.]+)$/;
        $new = sprintf $fmt, $digits;
        rename $_, $new or warn $!;
}