2000/10/29 (日) 05:17:47
◆
▼
◇
[mirai]
$ perl -e "for('01'..'52'){$old=\"$_.jpeg\";$new=\"aaa$_.jpeg\";rename($old,$new) or die \"$old\";}"