Perlで日時に時間(秒)を加算する関数を書いてみた

決まった時間間隔を計算する必要があったので、Perlの関数にしてみました。

ソースコードは以下の通り。Time::Localモジュールを必要としていますが、標準モジュールなので特に何も追加しなくても動くハズです。

sub AddTime{ use Time::Local; my $year = shift; my $mon = shift; my $day = shift; my $hour = shift; my $min = shift; my $sec = shift; my $offset = shift; $year -= 1900 if $year < 1900; $mon--; my $epochTime = timelocal( $sec, $min, $hour, $day, $mon, $year ); $epochTime += $offset; ( $sec, $min, $hour, $day, $mon, $year ) = localtime($epochTime); $year += 1900; $mon++; return ( $year, $mon, $day, $hour, $min, $sec ); }

引数は見ての通り、年，月，日，時，分，秒，加算したい秒 となっております。加算したい秒にマイナス値を指定すれば減算もできます。

使い方としては、

print join(",", AddTime(2016, 12, 31, 23, 59, 59, 1));

とか、

( $year, $mon, $day, $hour, $min, $sec ) = AddTime( $year, $mon, $day, $hour, $min, $sec, $offset);

みたいな感じで。

Enjoy!