日々の日常書き殴り。

この日記へのリンクは
http://fulufuru.hauN.org/nikki.pl/yyyy/mm/dd.html#xx
「yyyy/mm/dd」は年月日、「x」は段落で張るのが吉。

[#01] Push型コンテンツってことで、ものすごく勢いのあったPointCastが今月でサービスを終了するらしい。確かに、企業内のネットワークを混雑させるとか、そういう悪い面もあったんだけど、それはそれで、便利だったんだよなぁ。

[#02] ふと代替サービスは無いだろうか。と新聞社などニュース系サイトを探してみるが、ActiveChannelのアイコンすらみかけない。むぅ、どうなってしまったんだろう。

[#03] おなかがへったので、近所のCASAまで飯を食いに。ノートPCを持っていて、ふにふにスクリプト書き。

[#04] むぅ、途中で全部消したくなったりして、消してやる。なんて思ったら、電源が切れた。75%くらい残っている表示だったのに……汗。どうやら、ずーっとACに繋ぎっぱなしだったから、見積りがおかしかったらしい。

#!/usr/local/bin/perl
use HTTP::Date;

$string = 'Sunday, 21-May-2000 17:51:55 JST';
&parse($string);

$string = 'Sunday, 21-May-2000 17:51:55 GMT';
&parse($string);

$string = 'Sunday, 21-May-2000 17:51:55 +0900';
&parse($string);

$string = 'Sunday, 21-May-2000 17:51:55';
&parse($string);

sub parse{
  my $string = shift;
  print "$string\n";
  my $t = &str2time($string);
  print &time2str($t),"\n\n";
}

% perl timetest.pl
Sunday, 21-May-2000 17:51:55 JST
Mon, 22 May 2000 02:51:55 GMT

Sunday, 21-May-2000 17:51:55 GMT
Sun, 21 May 2000 17:51:55 GMT

Sunday, 21-May-2000 17:51:55 +0900
Sun, 21 May 2000 08:51:55 GMT

Sunday, 21-May-2000 17:51:55
Sun, 21 May 2000 08:51:55 GMT

こんな感じ。JSTと指定したときの結果がどう考えても変。って、おいらの勘違い？

[#07] ひさしぶりにマシンの前に座りっぱなしの休みだったな。

2000年5月21日(日)