- 430 名前：425 mailto:sage [2006/07/04(火) 00:18:28 ID: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 って感じでどうだ？
