- コミット日時:
- 2008/12/30 22:12:46 (16 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/updatem2pfiletable.pl
r69 r83 34 34 $sth->execute(); 35 35 36 while ($file = glob("$recfolderpath/*.m2 p")) {36 while ($file = glob("$recfolderpath/*.m2?")) { 37 37 $file =~ s/$recfolderpath\///; 38 38 $query = "insert into foltia_m2pfiles values ('$file')"; … … 57 57 $filetid = $fileline[0]; 58 58 $filetid =~ s/[^0-9]//g; 59 60 $query = "insert into foltia_mp4files values ('$filetid','$fileline[2]')";61 $oserr = $dbh->do($query);59 if (($filetid ne "" )&& ($fileline[2] ne "" )){ 60 $query = "insert into foltia_mp4files values ('$filetid','$fileline[2]')"; 61 $oserr = $dbh->do($query); 62 62 #print "$filetid;$fileline[2];$query\n" 63 63 # http://www.atmarkit.co.jp/fnetwork/rensai/sql03/sql1.html 64 65 } 64 }#end if 65 }# end foreach 66 66 $oserr = $dbh->commit; 67 67
