Perlコーディング初心者質問スレ Part 57

Perlコーディング初心者質問スレ Part 57at PHP

Perlコーディング初心者質問スレ Part 57 - 暇つぶし2ch246:nobodyさん
08/03/28 15:33:52
>>245
sub reduce_date {
　　my @date = split /\D+/, $_[0];
　　$date[0] -= 2000;
　　sprintf '%02d/%d/%d %d:%d', @date[0..4];
}

print reduce_date('2008/03/28(金) 09:30:08');

次ページ