🚀 go-pugleaf

fj.comp.lang.perl へ飛ばそう。

fj.lang.perl の記事 <6hjqg2$1i1@corona.ando.co.jp>
'98/04/22(水) 13:08:34頃、sato-k@cc.ando.co.jpさんによると:

> localtime() の反対をしたいのです。

UNIX の場合ですが、localtime() の反対は mktime() です。
(例外は知らない :-)

で、perl の場合はマニュアル(perlfunc(1))の localtime の
ところに書いてあります。
perl 5.004 patch 4 の perlfunc(1) より:

             This scalar value is not locale dependent, see the
             perllocale manpage, but instead a Perl builtin.
             Also see the Time::Local module, and the strftime(3)
             and mktime(3) function available via the POSIX
             module.

Time::Local モジュールを使えとな。

> yy/mm/dd hh:mm:ss　が判れば連続秒数が判ると思いますが、
> どうしたら得られるか判りません。

2000 年問題が好きなんですか?

-- >8 -- daily signature -- >8 --
佐藤文優 <fumiya@cij.co.jp,fumiya@yk.rim.or.jp>
Internet: http://www.bento.ad.jp/~fumiya/
SAMBA   : http://samba.bento.ad.jp/
LAN     : http://kumasun.si.ykhm.cij.co.jp/bento/
「ご理解を」納得できる説明もしないのによく言うね。

なかたに@コニカ です。

sato さん>
> localtime() の反対をしたいのです。
> yy/mm/dd hh:mm:ss　が判れば連続秒数が判ると思いますが、
> どうしたら得られるか判りません。

時刻が文字列として与えられている場合、 perl 5.003 以降であれば
http://www.perl.com/CPAN/authors/id/GBARR/TimeDate-1.08.tar.gz
をインストールして Date::Parse を使うと良いと思います。
-- 
中谷 康一
コニカ株式会社 グラフィックアーツセンター

> localtime() の反対をしたいのです。

アルゴリズムに関して質問されているのだとしたら、はずしていると思います。
その場合には、無視してください。

また、perl5では別の書き方をするのではないかと思います。（perl5をperl4の
スーパーセットとしか利用していないのです）

   require "timelocal";
   $t = &timelocal($sec, $min, $hour, $day, $month, $year);

といったところでしょうか。引数の並びは、localtimeのものと一緒で、
月の指定は0～11になります。年の指定は、４桁でも２桁でもよかったと
思います。

ところで、UNI*の世界では、２０００年問題より、longによる制約の方が問題な
のではないかと思うのですが？それとも、そのうちビット数が多くなって、
とりあえず問題が先延ばしにされるのでしょうか？

-- 
山西　守 <yama@biotech.okayama-u.ac.jp>
086-251-8196, 086-251-8264(fax)

sato です。
メールでの回答を含めありがとうございます。

当方の環境にて簡単に実現できるものとしては

>   require "timelocal";
>  $t = &timelocal($sec, $min, $hour, $day, $month, $year);

や、スクリプトの作成が有りました。

お詫び
yy/mm/dd hh:mm:ss　よりも　yyyy/mm/dd hh:mm:ss
の方が適切な表現でした。
使用する環境が明記されていませんでした、
WindowsNTWS4.0 の Perl5.003です。
fj.comp.lang.perl が当方利用のメールサーバーには
存在しません。管理者に依頼するしかないですね。

ありがとうございました。
--  sato-k@cc.ando.co.jp --