postgresに内容を送ることが出来ません。宜しくお願いします
#!c:/perl/bin/perl --
こんにちわ。perl5.8,windowsXP,postgreSQL8.2を使って居ります。postgresにperlから内容を入力できず困っております。今回入力するテーブルには既にsqlに直接行を2行分のみ入力してあり、その部分、3行目からはperlでテストしています。postgresのpg_logというフォルダにログが入っていたので見たのですが特にエラーも書いてありませんし、コマンドプロンプトでもエラーにはなっていませんでした。アドバイスをお願いします。宜しくご指導下さい。
use DBD::Pg;
use DBI;
require'jcode.pl';
$dbh=DBI->connect("dbi:Pg:host=localhost;dbname=kensaku",'dd','ee');
my$b=(<<"EOL");
convert('PostgreSQL' using sjis_to_euc_jp);
insert into kensaku(id,word1,word2,word3,head,img)
values(?,?,?,?,?,?);
EOL
;
@bindvalues=('w','d','q','g','c','v');
&jcode'convert(*bindvalues,'euc_jp');
$sth=$dbh->prepare($b);
foreach (@csvdata){
@bindvalues=split(/,/,$_);
$v=$sth->execute(@bindvalues);}
$d=$dbh->disconnect;