Subscribed unsubscribe Subscribe Subscribe

MySQLのfrom_unixtime(), unix_timestamp()をPerlから使うモジュール作った

perl

集計バッチやなんかを書くときに、MySQLのDateTime型(%Y-%m-%d %H:%M:%S)とUNIX timeを相互に変換したくなるときがある。要するにMySQLでいうfrom_unixtime()関数、unix_timestamp()関数にあたるものが欲しい。ので、それらをPerlで使えるやつを書いた。

https://metacpan.org/module/Time::Format::MySQL

use Time::Format::MySQL qw(from_unixtime unix_timestamp);

print from_unixtime(time); #=> 2013-01-11 12:03:28
print unix_timestamp('2013-01-11 12:03:28'); #=> 1357873408

あと、このモジュールを入れると、from_unixtimeというコマンドとunix_timestampというコマンドが付属してくる。

$ from_unixtime 1369139737
2013-05-21 21:35:37

$ unix_timestamp '2013-05-21 21:35:37'
1369139737

よろしければお使いください。

DateTimeオブジェクトやTime::Pieceオブジェクトが欲しいよ!という人は

DateTime::Format::MySQLやTime::Piece::MySQL等を使うと良いでしょう。