- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
828 :デフォルトの名無しさん[sage]:2015/12/26(土) 17:19:03.24 ID:PiMfYnB0 - use Time::Local 'timelocal';
my($year,$month,$day) = '2015年12月29日' =~ /(\d+).*?(\d+).*?(\d+)/; my $epoch = timelocal(0,0,0,$day,$month-1,$year); my $after_n_days = localtime($epoch + (60*60*24) * $n);
|
|