日付名にファイル名を変換

001.jpg -> 20080505_001.jpg
等に変換するスクリプトです。
自分は、即席で書いてしまったので、ショートコード的要素は、一切なしですが、
もっと短く出来るという方チャレンジ〜。

$KCODE = "S"
require 'date'

t = DateTime.now()
Dir.glob("*.jpg").each do |item|
	fname = t.year.to_s + t.month.to_s.rjust(2,"0") + t.day.to_s.rjust(2,"0") + "_" +File.basename(item,".*") + File.extname(item)
	File.rename( item , fname )
end