2008年04月14日 perlでCSVをSQLに変換 ある人から大量のcsvレコードをDBに投入するという話しを聞いて、それならSQLにしちゃった方が速いのではないかという話しになり、ファイル操作ならperlかなと思い以下のようなプログラムを作りました。 ローカルにperlが入ってないので、perlが入っている手頃なサーバに以下のようなcgiを作成。 perlを書くのは地元のwebの学校に行っていた以来です。 //以下サンプル #!/usr/bin/perl print "Content-type: text/plain¥n¥n"; open CSV,"hogepoint.csv"; open SQL,">hogepoint.sql"; $cnt=0; while (<CSV>) { $cnt++; s/¥s//g; s/¥"//g; s/,/','/g; print SQL qq(IN