Perl で、時刻のシリアル値を取得したい。

Time::Local モジュールを利用する。localtime や gmtime の逆を行う。


use Time::Local;


#!/usr/bin/perl

use Time::Local;

$time = timelocal($sec, $min, $hour, $day, $mon, $year);
$time = timegm   ($sec, $min, $hour, $day, $mon, $year);

1;

Comments

Perl で、誕生日を求める。

Trackback from Perl Tips:

my $now = time; とすれば、$now に「1970 年 1 月......