ココとPerlで头びませんか(沸册泣眶の纷换)

牢の送— ≈钳奉泣や退泣ˇ箕癸の艰评∽では附哼箕癸について棱汤しましたが、このペ〖ジではもう办殊渴んで time簇眶の网脱数恕について棱汤します。
毋えば、どのようにしたら20泣涟の泣烧を评られるか、泼年の泣烧から海泣までの沸册泣眶を换叫するのはどのようにすればいいのかを雇えていきたいと蛔っています。

附哼の泣烧を滇める
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); $yyyymmddJ = sprintf("%04d钳%02d奉%02d泣", $year + 1900, $mon +1, $mday); print "$yyyymmddJです";
附哼の箕癸を泣塑胳で山绩させています。拒しくは≈钳奉泣や退泣ˇ箕癸の艰评∽を徊救してください。
2001钳11奉13泣です
≮ⅹPerl Reference: sprintf≯
≮ⅹPerl Reference: time≯
≮ⅹPerl Reference: localtime≯

それでは20泣稿の泣烧を滇めるには、どうのようにしたらよいのでしょうか。

Ｘ泣涟稿の泣烧を滇める
time は附哼の泣箕ˇ箕癸を1970钳1奉1泣0箕0尸0からの沸册擅で附すのでしたね。

print time, "<br>";
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$yyyymmddJ = sprintf("%04d钳%02d奉%02d泣", $year + 1900, $mon +1, $mday);
print "$yyyymmddJです";

黎ほどのスクリプトの涟にprint timeを掐れてみました。

1005634570
2001钳11奉13泣です

惧の乖が1970钳01奉01泣0箕0尸0擅からの沸册擅です。
布の乖は惧の沸册擅を傅にして评られた泣烧となります。

20泣稿の泣烧を滇めるなら
60擅∵60尸∵24箕粗∵20泣♂1728000擅涟を滇めることになります。そこで
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time - 1728000); $yyyymmddJ = sprintf("%04d钳%02d奉%02d泣", $year + 1900, $mon +1, $mday); print "$yyyymmddJです";
布のように20泣涟の泣烧が评られました。20泣稿ならtimeに1728000擅をプラスすればいいのです。
2001钳10奉24泣です

localteime()

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localteime();
$yyyymmddJ = sprintf("%04d钳%02d奉%02d泣", $year + 1900, $mon +1, $mday);
print "$yyyymmddJです";

これではどうなるでしょうか。

2001钳11奉13泣です

惧のように附哼泣烧を山绩します。localteime()はlocalteime(time)の臼维妨となっています。

localteime(0)
localteime()をlocalteime(0)にしたらどうなるでしょうか。

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(0);
$yyyymmddJ = sprintf("%04d钳%02d奉%02d泣", $year + 1900, $mon +1, $mday);
print "$yyyymmddJです";

1970钳01奉01泣です

1970钳01奉01泣が评られました。time は附哼の泣箕ˇ箕癸を1970钳1奉1泣0箕0尸0からの沸册擅ですので、(time)を(0)にすると、1970钳1奉1泣0箕0尸0から0擅沸册したことになります。
このスクリプトでは泣烧だけの山绩なのでよく尸かりません。箕癸も山绩させるようにしました。

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(0);
$yyyymmddJ = sprintf("%04d钳%02d奉%02d泣", $year + 1900, $mon +1, $mday);
$hhmmssJ = sprintf("%02d箕%02d尸%02d擅", $hour, $min, $sec);
print "$yyyymmddJで$hhmmssJです";

1970钳01奉01泣で09箕00尸00擅です

timeは1970钳01奉01泣で0箕0尸0擅からの沸册擅なのに、部肝9箕なのでしょうか。

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(0);
$yyyymmddJ = sprintf("%04d钳%02d奉%02d泣", $year + 1900, $mon +1, $mday);
$hhmmssJ = sprintf("%02d箕%02d尸%02d擅", $hour, $min, $sec);
print "$yyyymmddJで$hhmmssJです";

1970钳01奉01泣で00箕00尸00擅です

gmtimeはグリニッジ筛洁箕を山绩します。
timeではグリニッジ筛洁箕での1970钳01奉01泣で0箕0尸0擅をしっかりと绩していたのです。その箕粗をlocaltimeとしたことで、泣塑箕粗の9箕に恃垂されていたのです。
≮ⅹPerl Reference: gmtime≯

沸册泣眶を滇める
泼年の泣烧から附哼までの沸册泣眶を滇めるにはどうしたらいいでしょうか。沸册擅から86,400擅(60擅∵60尸∵24箕粗)で充れば泣眶を评られます。しかし海搀は泣烧から沸册泣眶を充り叫さなければなりません。そんな箕に守网な怠墙があります。timelocalです。これはperlのモジュ〖ルにある泼检な簇眶です。黎ずモジュ〖ルの蝗い数から棱汤をします。

use モジュ〖ル叹;
use Time::Local;
use でモジュ〖ルを蝗脱することを离咐します。ここではTime::Localがモジュ〖ル叹です。Time::Localのモジュ〖ルを离咐したことによりtimelocal簇眶を蝗脱することができるようになりました。

use Time::Local; $year=2001; $mon =10; $mday=24; $hours = 0; $min = 0; $sec = 0; $time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year); print $time, "<br>";

1003849200
黎ほど擅眶を蝗って20泣涟の泣烧(2001钳10奉24泣)を滇めましたが、ここでは2001钳10奉24泣を回年して附哼までの沸册擅を滇めました。それがtimelocal(　)、モジュ〖ルで蝗脱できる簇眶です。荒前ながら、この猛が赖しいのか尸かりませんので、localtimeを蝗って浮沮してみましょう。

use Time::Local; $year=2000; $mon =10; $mday=24; $hours = 0; $min = 0; $sec = 0; $time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year); print $time, "<br>"; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time); $yyyymmddJ = sprintf("%04d钳%02d奉%02d泣", $year + 1900, $mon + 1, $mday); $hhmmssJ = sprintf("%02d箕%02d尸%02d擅", $hour, $min, $sec); print "$yyyymmddJで$hhmmssJです";

1003849200 2000钳10奉24泣で00箕00尸00擅です
赖しい沸册擅を艰评できたようです。沸册擅から沸册泣眶を换叫できました。

ついでに1970钳1奉1泣0箕0尸0擅から附哼までの沸册擅と、2000钳10奉24泣0箕0尸0擅までの沸册擅も山绩しておきます。
use Time::Local; $year=2001; $mon =10; $mday=24; $hours = 0; $min = 0; $sec = 0; $time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year); $time1 = time; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time); $yyyymmddJ = sprintf("%04d钳%02d奉%02d泣", $year + 1900, $mon + 1, $mday); $hhmmssJ = sprintf("%02d箕%02d尸%02d擅", $hour, $min, $sec); print "$yyyymmddJで$hhmmssJです<br>"; $kdays = int(abs(($time1 - $time) / 60 / 60 / 24)); print "$kdays泣が沸册しています"; print "<br>\$time=$time, \$time1=$time1";

2001钳10奉24泣で00箕00尸00擅です 20泣が沸册しています $time=1003849200, $time1=1005644169

$time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year);
$time1 = time;

$kdays = int(abs(($time1 - $time) / 60 / 60 / 24));

≮ⅹPerl Reference: int≯

l_nisukeisan_8.cgi

これで窗喇ですが、timelocalは1970钳からの沸册擅です。それ笆涟からの批えを滇めることはできないようです。そこで侍の数恕で沸册泣眶を滇めることにしましょう。≈栏まれてから部泣々∽をご枉になってください。