2003-12-17 先月 メモ 先月をyymmの形式で得たいとすると、こんな感じでイイのかな。 #!perl @date = localtime(time); $prev_diary = sprintf("%02d%02d",$date[5]-100-($date[4] == 0),$date[4] + 12*($date[4] == 0)); print "$prev_diary";