TVJPスカパー修正

スカパーの番組表のURLと構造変化による不具合の修正コード
check.plを下記のように修正する。
186,187行
前）
my $url = "http://cgi.skyperfectv.co.jp/cgi-bin/channel_list99.cgi";
$ua = "-A 'Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; istb 644)' -d channel=$ARGV[$i] -d FROM=$skptday";
後）
my $url = "http://search.skyperfectv.co.jp/prog/ProgramSheet";
$ua = "-A 'Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; istb 644)' -d list=$ARGV[$i] -d FROM=$skptday";

201行
前）
if ($ln =~ /bgcolor="#4C6291".+?>([0-9][0-9]):([0-9][0-9])-([0-9][0-9]):([0-9][0-9])/) {
後）
if ($ln =~ /class="f12c464646wB">([0-9][0-9]):([0-9][0-9])-([0-9][0-9]):([0-9][0-9])/) {

219行
前）
elsif ( ($ln =~ /bgcolor="#E6E6E6".+?<B>(.+?)<\/B>/) && ($tiflag == 0) ){
後）
elsif ( ($ln =~ /class="f12c18318FwB">(.+?)<\/span>/) && ($tiflag == 0) ){

253行
前）
elsif ( ($ln =~ /bgcolor="#E6E6E6".+?"nm">(.*?)<\/FONT>/) && ($tiflag == 1) ){
後）
elsif ( ($ln =~ /class="f12c464646">(.*?)<\/span>/) && ($tiflag == 1) ){

288行
前）
elsif ( ($ln =~ /<\/TR>/) && ($title ne "") ) {
後）
elsif ( ($ln =~ /<\/tr>/) && ($title ne "") ) {

あー、人様のコードはよくわからん。
けどうちでは治ったので多分動くはず。ただし更新は忘れずにね。/Data/dateSKP.txt削除すれば手動で更新可能。