Index: trunk/install/perl/xmltv2foltia.pl =================================================================== --- trunk/install/perl/xmltv2foltia.pl (リビジョン 132) +++ trunk/install/perl/xmltv2foltia.pl (リビジョン 134) @@ -127,6 +127,13 @@ chomp(); $item{title} = &removetag($_); + $titlebackup = $item{title}; $item{title} =~ s/【.*?】//g;#【解】とか $item{title} =~ s/\[.*?\]//g;#[二]とか +# $item{title} =~ s/【.??】//g;#【解】とか +# $item{title} =~ s/\[.??\]//g;#[二]とか + if ($item{title} eq ""){ + # WOWOWで【無】こんなミニ番組があり、タイトル空白になってしまうことがある + $item{title} = $titlebackup; + } #print Dumper($_) ; #print "$result \n"; @@ -172,4 +179,6 @@ }elsif ($item{category} =~ /その他/){ $item{category} = "etc"; + }else{ + $item{category} = "etc"; } @@ -251,6 +260,8 @@ #Encode::JP::H2Z::z2h(\$string); -$title = jcode($title)->tr('A-Za-z0-9!#$%&()*+,−./:;<=>?@[\]^_`{|}','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}'); -$desc = jcode($desc)->tr('A-Za-z0-9!#$%&()*+,−./:;<=>?@[\]^_`{|}','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}'); +$title = jcode($title)->tr('A-Za-z0-9!#$%&()*+,−./:;<=>?@[\]^_`{|} ','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|} '); +$desc = jcode($desc)->tr('A-Za-z0-9!#$%&()*+,−./:;<=>?@[\]^_`{|} ','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|} '); +#$title = jcode($title)->tr('A-Za-z0-9!#$%&()*+,−./:;<=>?@[\]^_`{|}','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}'); +#$desc = jcode($desc)->tr('A-Za-z0-9!#$%&()*+,−./:;<=>?@[\]^_`{|}','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}'); #&writelog("xmltv2foltia DEBUG $foltiastarttime:$foltiaendtime");