2009-03-26 先週の日曜日 perl use DateTime; use DateTime::TimeZone; my $time_zone = DateTime::TimeZone->new( name => 'local' ); my $today = DateTime->now( time_zone => $time_zone ); my $last_sunday = $today->clone; $last_sunday->subtract( days => $today->day_of_week );