Perl には、今、自分のいるタイムゾーンがどこなのか（JSTとか+09:00）とかを手軽に 取得する関数はたぶんなかったと思う。DateTime::TimeZone モジュールとかをつかって グリグリすれば取得できそうだけど、DateTime系はたぶん標準添付モジュールじゃないし。 そこで、ローカルタイムゾーン用の localtime 関数と、GMT用の gmtime 関数を組み合わせて 自分のサーバのタイムゾーンを判定するスクリプト。 use Time::Local; my $now = time(); my $off = (timegm(localtime($now))-timegm(gmtime($now)))/60; printf( "%+03d:%02d\n", $off/60, $off%60 ); GMT と、手元の時間の時差を測って、その差を +09:00 の形式で表示します。 timegm(gmtime()) は冗長だけど、念のため。 Time::Local モジュールは Perl 5.005 でも標準添付なので、安心して使えます。 ⇒これで、XML::FeedPP モジュールでもタイムゾーンを扱いやすくなる。

<< 前記事（2006/03/17）

トップへ

後記事（2006/03/19）>>

<< 前記事（2006/03/17）

トップへ

後記事（2006/03/19）>>