チェンジセット 109: trunk/install/perl/getxml2db.pl
- コミット日時:
- 2010/07/14 15:43:38 (14 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/getxml2db.pl
r94 r109 40 40 } 41 41 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; 50 53 51 54 $dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;; … … 71 74 72 75 foreach(@line){ 73 74 Jcode::convert(\$_,'euc'); 76 s/\xef\xbd\x9e/\xe3\x80\x9c/g; #wavedash 77 s/\xef\xbc\x8d/\xe2\x88\x92/g; #hyphenminus 78 s/&#([0-9A-Fa-f]{2,6});/(chr($1))/eg; #'遊戯王5D's'とかの数値参照対応を 79 80 Jcode::convert(\$_,'euc','utf8'); 75 81 76 82 #<ProgItem PID="21543" TID="528" StTime="20041114213000" EdTime="20041114220000" ChName="AT-X" Count="4" StOffset="0" SubTitle="いやだよ、サヨナラ…" Title="おとぎストーリー 天使のしっぽ" ProgComment=""/> … … 96 102 #$item{ProgComment}=''; 97 103 eval("$_"); 98 Jcode::convert(\$item{Title},'euc');104 #Jcode::convert(\$item{Title},'euc'); 99 105 100 106 $programtitlename = $item{Title}; … … 105 111 $programtitle = $programtitlename; 106 112 107 Jcode::convert(\$item{ChName},'euc');108 Jcode::convert(\$item{SubTitle},'euc');113 #Jcode::convert(\$item{ChName},'euc'); 114 #Jcode::convert(\$item{SubTitle},'euc'); 109 115 110 116 #$programSubTitle = $dbh->quote($item{SubTitle});