PERLでMYSQLにﾃﾞｰﾀが入りません｡ Web::Scraperで取得したﾃﾞｰﾀを配列に入れてﾙｰﾌﾟを使ってMYSQLに入れたいのですが､ﾃﾞｰﾀがなぜか入りません DB､SQLの接続ﾁｪｯ…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

PERLでMYSQLにﾃﾞｰﾀが入りません｡

Web::Scraperで取得したﾃﾞｰﾀを配列に入れて
ﾙｰﾌﾟを使ってMYSQLに入れたいのですが､ﾃﾞｰﾀがなぜか入りません

DB､SQLの接続ﾁｪｯｸではｴﾗｰはでず
ﾙｰﾌﾟの外においても動きません
なぜ､動かないか原因がわからず困っています｡

どこに間違いがあるか教えてください

my $dsn = 'DBI:mysql:rank:localhost';
# ﾕｰｻﾞ名
my $user = 'ﾕｰｻﾞID';
# ﾊﾟｽﾜｰﾄﾞ
my $password = 'ﾊﾟｽ';

$dbh = DBI->connect($dsn, $user, $password);

if(!$dbh){
print "接続失敗\n";
exit;
}
省略
my $scr = $scraper->scrape($url);
foreach my $scr_data (@{$scr->{src}}) {
my $sql = "update rankdata set ";
$sql .= "rank='" . $scr_data->{RANK} . "',";
$sql .= "name='" . $scr_data->{name} . "'";

$sth = $dbh->prepare($sql);
$sth->execute;
}
$sth->finish;
$dbh->disconnect;

●質問者: robopit
●ｶﾃｺﾞﾘ:ｳｪﾌﾞ制作学習･教育
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

▽1 ● JULY
●100ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

prepare に渡す $sql の中身は多分､

update rankdata set rank='1',name='abc'

といった具合になると思いますが､これは意図したものになってますか？

この SQL だと､rankdata ﾃｰﾌﾞﾙのすべてのﾚｺｰﾄﾞに対して､rank を '1' に､name を 'abc' にする､という意味になります｡ということは､rankdata が空であれば何も起きないし､すでにﾚｺｰﾄﾞがあっても､rank と name が､foreach で最後に取り出された時の値で､すべてのﾚｺｰﾄﾞが更新されることになります｡

ひょっとして､insert したかったのでは？

foreach my $scr_data (@{$scr->{src}}) {
 my $sql = "insert into rankdata (rank, name) values (";
 $sql .= "'" . $scr_data->{RANK} . "',";
 $sql .= "'" . $scr_data->{name} . "')";

 $sth = $dbh->prepare($sql);
 $sth->execute;
}

robopitさんのｺﾒﾝﾄ
そのとおりです｡必要だったのはinsertでした｡お恥ずかしい限りです