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

差分発生行の前後
無視リスト:
コミット日時:
2007/06/07 00:34:11 (17 年前)
コミッタ:
sorshi
ログメッセージ:

AutoCommit?を使用せずに高速化をした。

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動
  • trunk/install/perl/getxml2db.pl

    r21 r58  
    5252 
    5353         $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;; 
     54 
     55$dbh->{AutoCommit} = 0; 
    5456 
    5557my ($content) = get("$uri"); 
     
    127129$nomalstarttime = substr($sttime,8,4); 
    128130$DBQuery =  "insert into  foltia_program values ($item{TID},$programtitle,'','$nomalstarttime','$length','','','3','1','')"; 
    129  $sth = $dbh->prepare($DBQuery); 
    130 $sth->execute(); 
     131# $sth = $dbh->prepare($DBQuery); 
     132# $sth->execute(); 
     133$oserr = $dbh->do($DBQuery); 
    131134&writelog("getxml2db  ADD TV Progtam:$item{TID}:$programtitle"); 
    132135 
     
    143146 if ($titlearray[0] ne "$programtitlename" ){ 
    144147        $DBQuery =  "UPDATE  foltia_program  SET        title = $programtitle where  tid = '$item{TID}' "; 
    145           $sth = $dbh->prepare($DBQuery); 
    146         $sth->execute(); 
     148#         $sth = $dbh->prepare($DBQuery); 
     149#       $sth->execute(); 
     150        $oserr = $dbh->do($DBQuery); 
    147151        &writelog("getxml2db  UPDATE TV Progtam:$item{TID}:$programtitle"); 
    148152 }#end if update 
     
    184188        WHERE tid = '$item{TID}' AND pid =  '$item{PID}' "; 
    185189} 
    186                  $sth = $dbh->prepare($DBQuery); 
    187                 $sth->execute(); 
    188         #       @subtitledata= $sth->fetchrow_array; 
     190#                $sth = $dbh->prepare($DBQuery); 
     191#               $sth->execute(); 
     192        $oserr = $dbh->do($DBQuery); 
     193 
    189194 }else{ 
    190195        #なければ追加 
     
    197202        $DBQuery = "insert into foltia_subtitle values ( '$item{PID}','$item{TID}','$stationid','$item{Count}',$programSubTitle,'$recstartdate','$recenddate','$offsetmin' ,'$length')"; 
    198203        } 
    199                  $sth = $dbh->prepare($DBQuery); 
    200                 $sth->execute(); 
    201         # @subtitledata= $sth->fetchrow_array; 
     204#                $sth = $dbh->prepare($DBQuery); 
     205#               $sth->execute(); 
     206        $oserr = $dbh->do($DBQuery); 
     207 
    202208} 
    203209 
     
    211217}#foreach 
    212218 
     219$oserr = $dbh->commit; 
    213220 
    214221##      $dbh->disconnect(); 
track feed