たつをの ChangeLog : 2005-10-31

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

ため日記 - プログラミング講座第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 モジュール使った方がかっこいいかな。でも標準じゃないしな。まあ、状況依存ですね。プログラムの最初に一回しか使わないんだったら外部への依存関係を少なめにした方が良いかも。

代休二日目です。
ref. [2005-10-25-1]

■サイモン シン (著) / フェルマーの最終定理
-ピュタゴラスに始まり、ワイルズが証明するまで
ref. [2005-10-30-1]

■アーネスト ヘミングウェイ / 日はまた昇る
ref. [2005-10-29-4]

■鎌田浩毅 / 成功術 時間の戦略 / 文春新書
ref. [2005-10-16-2]

■ジェフ・ルート, 佐々木俊尚 / 検索エンジン戦争
ref. [2005-10-11-2]

■ピーター・バーンスタイン / リスク (下) / 日経文庫
ref. [2005-10-08-3]