Perlでtimelocalを使う(メモ)

2014年11月25日

これすぐ忘れていつもググる事になるので、メモ。

use Time::Local;

my $date = '2014-10-11 10:30:00';
my @date = split(/ /,$date);
my @ymd = split(/-/,$date[0]);
my @hms = split(/:/,$date[1]);

# timelocal(秒,分,時,日,月,年);
my $unix = timelocal($hms[2],$hms[1],$hms[0],$ymd[2],$ymd[1]-1,$ymd[0]);
print $unix;

localtimeは何もuseしなくても使えるけど、timelocalは、Time::Localをuseしないと使えない。

timelocalでunixtimeを取る時は、月を-1する。
(localtimeの場合は、年+1900,月+1)

以上、メモでした。

関連記事

  1. PerlのTest(prove)結果をSlackに通知する proveの結果をslackに通知したかったので、安易ですが以下のような感じにしてみました。 まず、以前書いたように(App::Prove::Plugin::HarrietでTest::mysqldを起動する)Harri […]...
  2. ログの表示を綺麗にしたい(Text::ASCIITable) 綺麗にというか、見やすく？ｗ 本番用のログというよりは、デバッグ用のログ出力ですかね。 use Text::ASCIITable; my $t = Text::ASCIITable->new(); $t->s […]...
  3. signed_requestからページ情報を取り出す Facebookアプリを登録して、リンクを踏むとアプリへsigned_requestが送られてきます。 で、そこから情報を取り出す方法をメモ。 Apps on Facebook.com http://developers […]...
  4. Cache::Fileでhtmlをキャッシュしてみました。 Cache::File http://search.cpan.org/~cleishman/Cache-2.04/lib/Cache/File.pm ↑これ http://search.cpan.org/~bbb/Fil […]...
Perl