チェンジセット 109: trunk/install/perl

差分発生行の前後
無視リスト:
コミット日時:
2010/07/14 15:43:38 (14 年前)
コミッタ:
sorshi
ログメッセージ:

番組名などの文字化け対応、cal_chk.xmlの利用廃止などこちらのBBSで頂いたコードと情報の反映>ありがとうございました

Re:番組名が化ける
投稿日 2010年07月14日01時25分20秒 投稿者 Tosy

ファイル:

凡例:

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

  • trunk/install/perl/getxml2db.pl

    r94 r109  
    4040} 
    4141 
    42 if ($ARGV[0]  eq "long"){ 
    43         $uri="http://cal.syoboi.jp/cal_chk.php"; 
    44         #$uri="http://syobocal.orz.hm/cal_chk.php"; 
    45         &writelog("getxml2db  use long mode."); 
    46 }else{ 
    47         $uri="http://cal.syoboi.jp/cal_chk.xml"; 
    48         #$uri="http://syobocal.orz.hm/cal_chk.xml"; 
    49 } 
     42# http://sites.google.com/site/syobocal/spec/cal_chk-php 
     43#if ($ARGV[0]  eq "long"){ 
     44#       $uri="http://cal.syoboi.jp/cal_chk.php"; 
     45#       #$uri="http://syobocal.orz.hm/cal_chk.php"; 
     46#       &writelog("getxml2db  use long mode."); 
     47#}else{ 
     48#       $uri="http://cal.syoboi.jp/cal_chk.xml"; 
     49#       #$uri="http://syobocal.orz.hm/cal_chk.xml"; 
     50#} 
     51$uri = "http://cal.syoboi.jp/cal_chk.php?days="; 
     52$uri .= ($ARGV[0] eq "long")? 14: 7; 
    5053 
    5154$dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;; 
    …… 
    7174 
    7275foreach(@line){ 
    73  
    74 Jcode::convert(\$_,'euc'); 
     76s/\xef\xbd\x9e/\xe3\x80\x9c/g; #wavedash 
     77s/\xef\xbc\x8d/\xe2\x88\x92/g; #hyphenminus 
     78s/&#([0-9A-Fa-f]{2,6});/(chr($1))/eg; #'遊戯王5D's'とかの数値参照対応を 
     79 
     80Jcode::convert(\$_,'euc','utf8');  
    7581 
    7682#<ProgItem PID="21543" TID="528" StTime="20041114213000" EdTime="20041114220000" ChName="AT-X" Count="4" StOffset="0" SubTitle="いやだよ、サヨナラ…" Title="おとぎストーリー 天使のしっぽ" ProgComment=""/> 
    …… 
    96102#$item{ProgComment}=''; 
    97103eval("$_"); 
    98 Jcode::convert(\$item{Title},'euc'); 
     104#Jcode::convert(\$item{Title},'euc'); 
    99105 
    100106$programtitlename = $item{Title}; 
    …… 
    105111        $programtitle = $programtitlename; 
    106112 
    107 Jcode::convert(\$item{ChName},'euc'); 
    108 Jcode::convert(\$item{SubTitle},'euc'); 
     113#Jcode::convert(\$item{ChName},'euc'); 
     114#Jcode::convert(\$item{SubTitle},'euc'); 
    109115 
    110116#$programSubTitle = $dbh->quote($item{SubTitle}); 
track feed