Files can be renamed, so that they can be correctly sorted by filename.
#/bin/perl
# this program rename any file with [0-9]+.jpg to [0000].jpg
# apply recusively to sub folders
use Cwd;
use File::Find;
use File::Basename;
$type = "jpg";
$path = &Cwd::cwd();
opendir(DIR, "$path");
@FILES = ();
&File::Find::find( sub {push @allFiles, $File::Find::name;}, ".");
foreach $file (@allFiles) {
if ( $file =~ "[0-9]+\.$type") {
$folder = dirname($file);
$basename = basename($file,(".$type"));
$newname = sprintf("%04d",$basename);
print "$file --> $basename --> $folder/$newname.$type\n";
rename($file, "$folder/$newname.$type");
}
}