当日の年月日は、localtimeとtimeを使えば、すぐに解決。 my @arr = localtime(time); my $y = $arr[5] + 1900; my $m = $arr[4] + 1; my $d = $arr[3]; printf "%d %d %d\n", $y, $m, $d; 前日というのは実にやっかいで、前述の$dから引き算をすると、2013…