13/08/08 23:46:26.07
>>180
my($year,$month,$day) = (localtime)[5,4,3];
my $after30years = sprintf('%04d-%02d-%02d',1900+$year+30,$month+1,$day);
実行速度、大事な。
13/08/08 23:46:26.07
>>180
my($year,$month,$day) = (localtime)[5,4,3];
my $after30years = sprintf('%04d-%02d-%02d',1900+$year+30,$month+1,$day);
実行速度、大事な。