エポック秒

Perlの仕事を離れて久しく、MySQLの使用で久々にエポック秒
(1970年1月1日0時0分0秒からの秒数)をこねくり回す機会がやってきた。
いや、MySQLだからでない、リプレース前のシステムが Perl だからだ。

MySQL なら、例えば、こんなかんじ、

select UNIX_TIMESTAMP(SYSDATE()) from dual

エポック秒を取得、逆は、FROM_UNIXTIME(秒数)

Oracle なら、、

select SYS_EXTRACT_UTC(TIMESTAMP '2009-07-22 10:00:00.0 +09:00') from dual

あるいは、

(SYSDATE - TO_DATE('1970-01-01 00:00:00', 'YYYY-MM-DD HH24:MI:SS')) * 24 * 60 * 60)

こんなこと、すれば良いのだっけ。。Oracleの仕事じゃ使いそうもないなあ。。。
エポック秒を使うこと自体がイケテナイ気がするのだが。