06/07/04 00:18:28 FYi2OQPG
下らんことを言ってても何なので、さわりのさわりだけな。
#!/usr/bin/perl
while ( <> )
{
if ( /(¥/tv¥/iEPG¥/TVPTI_output.cgi.*[0-9][0-9]¥:[0-9][0-9]¥:[0-9][0-9])/ )
{ print $1,"¥n"; }
}
iEPG を取ってきたいページをwget で拾ってきて、上のperl を通したあとで、
http:// を適当につけてもう一回wget って感じでどうだ？