作者: 藤岡和夫
日時: 2004/6/27(11:21)
On Sun, 27 Jun 2004 11:19:03 +0900
藤岡和夫 <kazuf@...> さんwrote:

> use encoding "shiftjis";
> use LWP::Simple;
> @lines = split(/\n+/,get("http://homepage1.nifty.com/kazuf/renewal_2004_05.html"));
> $pattern = "ソレイユ";
> foreach $line (@lines){
>   if($line =~ /$pattern/){
     print $line;# 修正(^^;)
>   }
> }

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