こんばんは、芳賀です。

手紙をもらった日：Thu, 10 Aug 2006 15:21:13 +0900
手紙をくれた人：Masaki Mizutani <m-saki@xxxxxxxxxx>さん
【[sylpheed-jp:03470] Re: 同一アカウントで複数の署名の使い分け】

| #!/usr/bin/perl -w
| use strict;
| open TODAY, "/usr/local/bin/today -Ah|";
| my $i = 0;
| my @today;
| while(<TODAY>){
|         $today[$i] = $_;
|         $i++;
| }
| print <<EOF;
      中略
| EOF
| print "今日の歴史..." . $today[int(rand($i - 1) + 1)];
| exit 0;

これ、面白いです。私は Perl をほとんど知らないので、「初めての Perl」
などという本を引っ張り出してきて、眺めました。
私の環境には "/usr/local/bin/today" コマンドが無いのですが、おお
むね分かりました。
私は以前、署名に「今日の天気」などを挿入したこともありましたが、うっとう
しいのですぐに止めました :)


---
"Thank you for telling me the truth."  --- HAL9000 in "2010"
 Yasufumi Haga   yasufumi.haga@xxxxxxxxxx
                 http://homepage3.nifty.com/peterpan/
 fingerprint:0EFA 299A BC32 7D68 1FEF  BA2B 804E 9B15 C4F0 F9F0