作者: dune
日時: 2004/6/27(20:37)
極悪です。

藤岡和夫 さんの 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?）。
世の中にはサイン本という制度があるのでよろしくお願いします。
希望者がメールを出すと抽選で何名かに返事が来て代金を振り込む
と座右の銘とか聖書の一節と著者のサインが書かれた本が送られて
くるシステムです。
-- 
極悪, FZH01112 at nifty.com
http://hpcgi1.nifty.com/dune/gwiki.pl?