作者: 藤岡和夫
日時: 2004/6/28(00:07)
On Sun, 27 Jun 2004 20:37:49 +0900
dune <FZH01112@...> さんwrote:

> 極悪です。
> 
> 藤岡和夫 さんの Re: Perl5.8.1では、ShiftJIS
> >　use encoding "shiftjis"とLWPを使うことに前提に
> >スクリプトにデコード処理が書けるのでしょうか。
> 
> うーむ、深く？考えすぎな気がします。
> 
> use encoding "shiftjis";
> use LWP::Simple;
> use Encode;
> use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
> 
> my $pattern = "ソレイユ";
> my $url = "http://homepage1.nifty.com/kazuf/renewal_2004_05.html";
> my @line = split(m/\n+/,decode(Guess => get $url));
> 
> foreach(@line){
>     if(m/$pattern/){
>         print;
>     }
> }
> 
> D:% perl lwt.pl
> <p>キリンビールの跡地にできたダイアモンドシティ・ソレイユに初めて出かけた。
> （以下略）
> 

　おーっ凄い。これは素晴らしい。やはりできるのか。現在のシステムに組み込
んでみます。

> >　実は今、WindowsユーザーのためのJPerlに関する本を
> >書かせてもらっていることがあり、Perl5.8を使うのも
> >当然重要な選択肢になるものですから。
> 
> お、それはニュースですね。JPerl に関する本なのですか（J?）。

　さて、JPerlの本にしようと考えていたのですが、今日の極悪さんの指導で待っ
たが掛かりそうな気が・・・しかし、大幅な変更になりそうな(^^;)半分うれし
く、半分冷や汗が・・・(^^;)ずーっと気がかりな部分だったので、やはり聞く
のが正解(^^;;;

　JPerlによる知的生産の技術みたいな本なんですけど、 WindowsユーザーでPerl
初心者が対象です。完成寸前、JPerlの本にするかどうかは私の判断です・・・
システムとしてはJPerlで問題なく動いている。読者のためにはPerl5.8のほうが
インストールも簡単ですよね。

　時代は変わったと今日思った。Perl5.8の正規表現のテストをしてみないと・
・・スクリプトを全部書き換え(^^;)でもそれほど負担はなさそうですね。Perl5.8
の本になるかも・・・

> 世の中にはサイン本という制度があるのでよろしくお願いします。
> 希望者がメールを出すと抽選で何名かに返事が来て代金を振り込む
> と座右の銘とか聖書の一節と著者のサインが書かれた本が送られて
> くるシステムです。

　住所を教えておいてください_(__)_ありがとうございました。

藤岡 和夫
FGALTS@...
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/