Perlでの Timeの足し算

質問

時間の足し算をやりたい。訳あってライブラリが使えません。
方法は無いでしょうか？
仮にライブラリが使えるなら、下記のようでうまく行っています。
---------------------------------------------------
use Time::Local;
$year=2008;
$mon =10;
$mday=24;
$hours = 23;
$min = 0;
$sec = 0;
$time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year);

$a1=($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time );
$mytimeORG= sprintf("%04d/%02d/%02d %2d:%2d", $year + 1900, $mon +1, $mday,$hour,$min);
print "$mytimeORG\n";

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time + 32400); #9H加算
$mytime9H= sprintf("%04d/%02d/%02d %02d:%02d", $year + 1900, $mon +1, $mday,$hour,$min);
print "$mytime9H\n";
---------------------------------------------

回答No.2

moon_night · ベストアンサー

ここに自作のtimelocal関数が乗っています。
http://www3.wind.ne.jp/habe/hakoniwa/tips/tips_1.html

お礼

早速やってみます。
ありがとうございます。

回答No.1

chaimasuka

デフォルトでロードできる、標準モジュールも使えないのでしょうか？
Time::Localは、Perl5から標準モジュールなのですが。

補足

その意味では、小生、まともな使い方ではなりません。
Perlを誰でも、どのPCでも使えるようにしています。Perlは、
Perl300.dll,Perl.exeこの２つだけで、基本的なことはできてしまいます。同じフォルダに入れておけば、Pathを切ることさえ要りません。
と言うわけで、ライブラリなしで、やれるとありがたいのです。