Question

我在尝试将数据插入表中时遇到奇怪的错误，同时处理从不同表中提取的数据：

DBI::st=HASH(0x56261b345948)->_prepare(...): attribute parameter '0' is not a hash ref at /usr/lib/x86_64-linux-gnu/perl5/5.24/DBD/Pg.pm line 277.

似乎导致它的行是上面代码片段中的$ dbh-＆gt; do（）：

 my $sth = $dbh->prepare(
     "SELECT (name, model), serial, firmware, timestamp FROM devicelog 
         WHERE id = $id AND fleet = $fleet AND timestamp >  
             (SELECT timestamp FROM devicelog WHERE fleet = $fleet AND id = $id ORDER BY timestamp DESC LIMIT 1)
             - INTERVAL '50 seconds'"
 );
 $sth->execute();
 while (my @row = $sth->fetchrow_array())
 {

     if (param('savetemplate'))
     {
         $dbh->do('INSERT INTO template (fleet, id, name, model, serial) VALUES (?, ?, ?, ?, ?)',
             $fleet,
             $id,
             $row[0],
             $row[1],
             $row[2]
         ) or die $!;
     }
     # Do some printing to screen and other mundane stuff
}

我查看了第一个SQL查询返回的数据，但我发现它没有任何问题，因为结果会产生预期的结果：

                  row                   |  serial   |      firmware       |         timestamp          
----------------------------------------+-----------+---------------------+----------------------------
 ("HS60     GPS COMPASS",000-12308-001) | 19030590# |         01000023    | 2017-11-12 00:08:01.435483
 ("IS42     Instrument","")             | 007564#   | 01000_E 1.0.54.3.21 | 2017-11-12 00:08:01.476376

我开始认为应该转义的东西不是吗？我还怀疑DBI可能不喜欢在迭代fetchrow_array()系列时运行do（），但重写以避免同时执行它会产生相同的结果。

如果需要更多信息，请发表评论，然后我会提供。

Answer 1

根据the documentation，do具有以下形式：

<强> do

$rows = $dbh->do($statement)           or die $dbh->errstr;
$rows = $dbh->do($statement, \%attr)   or die $dbh->errstr;
$rows = $dbh->do($statement, \%attr, @bind_values) or die ...

您的代码：

     $dbh->do('INSERT INTO template (fleet, id, name, model, serial) VALUES (?, ?, ?, ?, ?)',
         $fleet,
         $id,
         $row[0],
         $row[1],
         $row[2]
     )

这将$fleet（第二个参数）视为对属性哈希（\%attr参数）的引用，它不是（它是一个数字）。您不想传递任何属性，因此您应指定undef：

     $dbh->do('INSERT INTO template (fleet, id, name, model, serial) VALUES (?, ?, ?, ?, ?)',
         undef,
         $fleet,
         $id,
         $row[0],
         $row[1],
         $row[2],
     )

另请注意，DBI未设置$!，因此在错误消息中使用它没有多大意义。您应该使用$dbh->errstr（或者只是在connect调用中传递RaiseError => 1，以使所有方法在出错时抛出异常。）

perl + postgresql代码会导致Pg.pm出现问题

1 个答案: