チェンジセット 134: trunk

差分発生行の前後
無視リスト:
コミット日時:
2010/10/29 20:12:00 (15 年前)
コミッタ:
sorshi
ログメッセージ:

WOWOWで<title lang="ja_JP">【無】</title>こんな番組名のEPGのとき、番組名が空白になってしまう問題を修正

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • trunk/install/perl/xmltv2foltia.pl

    r132 r134  
    127127        chomp(); 
    128128        $item{title}  = &removetag($_); 
     129        $titlebackup = $item{title}; 
    129130        $item{title} =~ s/【.*?】//g;#【解】とか 
    130131        $item{title} =~ s/\[.*?\]//g;#[二]とか  
     132#       $item{title} =~ s/【.??】//g;#【解】とか 
     133#       $item{title} =~ s/\[.??\]//g;#[二]とか  
     134        if ($item{title} eq ""){ 
     135                # WOWOWで<title lang="ja_JP">【無】</title>こんなミニ番組があり、タイトル空白になってしまうことがある 
     136                $item{title} = $titlebackup; 
     137        } 
    131138        #print Dumper($_) ; 
    132139        #print "$result  \n"; 
    …… 
    172179        }elsif ($item{category} =~ /その他/){ 
    173180        $item{category} = "etc"; 
     181        }else{ 
     182        $item{category} = "etc"; 
    174183        } 
    175184         
    …… 
    251260 
    252261#Encode::JP::H2Z::z2h(\$string); 
    253 $title = jcode($title)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}'); 
    254 $desc = jcode($desc)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}'); 
     262$title = jcode($title)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝　','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|} '); 
     263$desc = jcode($desc)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝　','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|} '); 
     264#$title = jcode($title)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}'); 
     265#$desc = jcode($desc)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}'); 
    255266 
    256267#&writelog("xmltv2foltia DEBUG $foltiastarttime:$foltiaendtime"); 
track feed