GMT による時間表現文字列を JST に変換する Perl コード片
2010-03-01-5
[Programming]
自分用メモ。
Perl による GMT to JST 変換。
標準環境での利用を想定(非標準モジュールのインストール無し)。
コード(gmt2jst.pl):
実行結果:
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