指定したフォルダの画像を連番で一括リネーム

perl -e 'my($source_dir, $tar_dir) = @ARGV; opendir $D, $source_dir; my $i = 0; while(my $file = readdir($D)) { next unless $file =~ /[^\.]/; $ext = (split(/\./, $file))[-1]; $cmd = "cp $source_dir/$file $tar_dir/$i.$ext"; $i++; print "[", $file, "]", $cmd, $/; `$cmd`; } closedir($D);' source_dir target_dir

source_dir: リネーム前の画像が入ったフォルダ
target_dir: リネーム後の画像を保存したいフォルダ