Hatena::Groupcside

Cside::StudyMemo このページをアンテナに追加 RSSフィード

メインブログに書くまでもない自分用メモを垂れ流す。日々是勉強也。

カテゴリー
 | 

2013-01-11

[]MySQLのFROM_UNIXTIME(), UNIX_TIMESTAMP()をPerlで

use Time::Piece ();

# datetime -> unixtime
sub unix_timestamp {
    Time::Piece::localtime->strptime(shift, '%Y-%m-%d %H:%M:%S')->epoch;
}

# unixtime -> datetime
sub from_unixtime {
    Time::Piece::localtime(shift)->strftime('%Y-%m-%d %H:%M:%S');
}

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

DateTime::Format::MySQLでも同じ事できた気がする

 |