Perl 日付と時刻からエポック秒を取得する方法 Time::Local timelocal

スポンサーリンク

このドキュメントの内容は、以下の通りです。

Perlで日付と時刻からエポック秒を取得するには、 Time::Local の timelocal を使うことで可能です。

年は 1900 年からの年なので 2008 年の場合 2008 - 1900 年の値にする必要があります。
月は、 0-11 の範囲なので、月から１を引いた値にします。

2008/12/31 11:22:33のエポック秒を取得してみます。

Time::Local timelocal サンプルコード


#!/usr/local/bin/perl -w
use strict;
use Time::Local;

my ($sec, $min, $hour, $mday, $mon, $year) = qw( 33 22 11 31 12 2008);
$year -= 1900;
$mon--;
my $time = timelocal($sec,$min,$hour,$mday,$mon,$year);
print $time, "\n";

実行結果

% perl timelocal.pl
1230690153

dateコマンドで確認してみます。
% date -r 1230690153
2008年 12月31日 水曜日 11時22分33秒 JST
予定通りの値になっていることを確認できました。
参照しているページ (サイト内): [2009-04-27-1]
スポンサーリンク
スポンサーリンク
 
いつもシェア、ありがとうございます！
Twitter
Facebook
LINE
Pocket
はてぶ
RSS

もっと情報を探しませんか？

関連記事

最近の記事

人気のページ

スポンサーリンク
 

過去ログ

2020 : 01 02 03 04 05 06 07 08 09 10 11 12
2019 : 01 02 03 04 05 06 07 08 09 10 11 12
2018 : 01 02 03 04 05 06 07 08 09 10 11 12
2017 : 01 02 03 04 05 06 07 08 09 10 11 12
2016 : 01 02 03 04 05 06 07 08 09 10 11 12
2015 : 01 02 03 04 05 06 07 08 09 10 11 12
2014 : 01 02 03 04 05 06 07 08 09 10 11 12
2013 : 01 02 03 04 05 06 07 08 09 10 11 12
2012 : 01 02 03 04 05 06 07 08 09 10 11 12
2011 : 01 02 03 04 05 06 07 08 09 10 11 12
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12

サイト

Vim入門

C言語入門

C++入門

JavaScript/Node.js入門

Python入門

FreeBSD入門

Ubuntu入門

セキュリティ入門

パソコン自作入門

ブログ

トップ

プライバシーポリシー