perl - solaris で時刻形式を秒に変換する方法

Question

形式の時間が2013-04-29 08:17:58あり、それを秒に変換する必要があります。

UNIX では、 を使用できますdate +%s。とにかくSolarisでそれを行うことはありますか?

Answer 1

もう少し努力すれば、恐ろしく古いバージョンの Perl でこれを行うことができます。

#!/usr/bin/perl

use strict;
use warnings;
use Time::Local;

my $str = '2013-04-29 08:17:58';
my @dt  = split /[- :]/, $str;

$dt[0] -= 1900;
$dt[1] -= 1;

print timelocal reverse @dt;

Time::Localは、Perl 5 の最初のリリース (1994 年) から Perl に含まれています。

しかし、古いバージョンの Perl を更新するためにできる限りのことをしてください。

更新：これについていくつかの反対票を獲得しています。しかし、誰もその理由を説明しようとはしませんでした。