【Perl】
次のような条件が与えられている課題に取り組んでおります。
・CSVファイルを読み込み、データをテーブルにINSERTする。
・CSVファイルのパスはコマンドライン引数で与える。
下記のようなコードを書いたところ、CSVファイルがテーブルに正常にINSERTされませんでした。
use strict;
use warnings;
use DBI;
my $dsn = 'DBI:mysql:kensyu';
my $user = 'root';
my $dbh = DBI->connect($dsn, $user, ,);
my $csvfile_pass = $ARGV[0];
my $sql = sprintf("BULK INSERT kensyu_kadai3 FROM '%s'",$csvfile_pass);
my $sth = $dbh->prepare($sql);
$sth->execute;
while(my $row = $sth->fetchrow_hashref) {
print "$row->{id}\n","$row->{'Public Organization Code'}\n","$row->{'Postal Code'}\n",
"$row->{'Name of Prefectures.1'}\n","$row->{'City Name.1'}\n","$row->{'Machijo Name.1'}\n",
"$row->{'Name of Prefectures.2'}\n","$row->{'City Name.2'}\n","$row->{'Machijo Name.2'}\n";
}
CSVファイルをテーブルに正常にINSERTするための方法をご教示いただけますと幸いです。
何卒よろしくお願いいたします。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。