【モダン推奨】Perlについての質問箱 50箱目

[394 デフォルトの名無しさん 2012/11/25(日) 00:44:06.73]

そんなに短さにこだわるなら、無理やりprintfつかなくていいんじゃね？
sprintf馬鹿に感化されたのか知らんが。

($d,$m,$y)=(localtime)[3..5];printf"%04d"."-%02d"x2,1900+$y,$m+1,$d
($d,$m,$y)=(localtime)[3..5];print 1900+$y,"-",$m+1,"-",$d