$newfile = $dstfile . "." . $video_suffix;
if(-e "$newfile.$ext") {
foreach $i ($video_suffix+1 .. '999') {
- $newfile = $dstfile . "." . $i;
+ $newfile = $dstfile . "." . sprintf("%03d",$i);
if(! -e "$newfile.$ext") { last; }
}
$dstfile = $newfile;
print " merging \"$srcfile\" into \"$video\"\n";
}
}
+print "\n";
# Now actually do the merging
foreach $video (sort keys %videos) {