やぎコラム自動取得

やぎコラム自動取得

あっしはこういうのを使っているっすね

use Jcode;
use TGMail;

open(O, 'yagi.old');
while(<O>){
    if(m|<p><b>いままでのやぎコラム</b></p><hr noshade><p><font color=#400040><b>(.*)</b></font></p>|){
       $last_time = $1;
       last;
   }
}
close(O);

system("wget -q -O yagi.new http://www.kt.rim.or.jp/~yhayashi/cgi-bin/yagi.cgi");

open(N, 'yagi.new');
while(<N>){
    if(m|<p><b>いままでのやぎコラム</b></p><hr noshade><p><font color=#400040><b>(.*)</b></font></p>|){
       $new_time = $1;
       if($new_time eq $last_time){
	   exit;
       }else{
	   while(<N>){
	       if(m|<p><font color=#400040><b>$last_time</b></font></p>|){
		  last;
	      }
	       s|<[^>]+>||g;
	       s|^M$||g;
	       $buf .= $_;
	   }
       }
   }
}
close(N);

$m = TGMail->new('To' => 'morimoto@xantia.citroen.org',
		 'From' => 'morimoto@xantia.citroen.org',
		 'Subject' => 'yagi ' . $new_time);
$m->print(Jcode->new($buf)->euc);

unlink('yagi.old');
rename('yagi.new', 'yagi.old');

いや、別にどうでもいいんだが (わら

ここはひとつ

use Yagi;

とかできるようにしてくれっす