課題「スクリプトを実行することで、現在の日付を返すスクリプト」。

ため日記 - プログラミング講座第2回
<http://d.hatena.ne.jp/kiyohero/20051030/1130689308>
(via <http://d.hatena.ne.jp/naoya/20051031/1130710931>)

#!/perl/usr/bin
use strict;

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = 
localtime(time);
my $date = sprintf("%04d/%02d/%02d %02d:%02d:%02d",
$year + 1900, $mon + 1, $mday, $hour, $min, $sec);
print $date;

私は strtime をよく使ってるなあ (chalow など)。

use POSIX strftime;
my $date = strftime "%Y/%m/%d %H:%M:%S", localtime;
print $date,"\n";                                            

id:naoya さんみたいに Time::Piece モジュール使った方がかっこいいかな。でも標準じゃないしな。まあ、状況依存ですね。プログラムの最初に一回しか使わないんだったら外部への依存関係を少なめにした方が良いかも。