更新日時順にソートしてからリネームするperlスクリプト

こんな感じ？

	#!/usr/bin/perl
	@list=<*.jpg>;
	$i=1;
	for (sort { (stat($a))[9] <=> (stat($b))[9] } @list){
	rename ($_,sprintf("%03d.jpg",$i++)) or die $!;
	}

view raw renamemodtime.pl hosted with ❤ by GitHub