古い記事
ランダムジャンプ
新しい記事
自分用メモ。
Perl による GMT to JST 変換。
標準環境での利用を想定(非標準モジュールのインストール無し)。

コード(gmt2jst.pl):
#!/usr/bin/perl
use strict;
use warnings;
use POSIX qw(strftime);
use Time::Local;
# $ENV{'TZ'} = "JST-9";
my $tm = "2009-12-31T23:00:01Z"; # GMT
$tm =~ /^(\d+)-(\d+)-(\d+)T(\d+):(\d+):(\d+)/;
my $utm = timegm($6, $5, $4, $3, $2-1, $1);
my $tmstr = strftime("%Y-%m-%d %H:%M:%S", localtime($utm));
print "GMT\t$tm\nJST\t$tmstr\n";

実行結果:
GMT     2009-12-31T23:00:01Z
JST     2010-01-01 08:00:01