Perl DBI：如何查看带有绑定值的失败查询？

my $query = q{
       INSERT INTO sales (product_code,qty,price) VALUES (?,?,?)
     };
     my $sth = $dbh->prepare($query) or die $dbh->errstr;
     while (<>) {
         chomp;
         my ($product_code,$qty,$price) = split /,/;
         $sth->execute($product_code,$price) or die ($query . " " . $dbh->errstr);
     }
     $dbh->commit or die $dbh->errstr;

我修改了一下,所以我可以看到哪个查询失败(die($query.“”.$dbh-> errstr)).我仍然希望看到带有绑定值的查询(因为它已被执行).怎么弄？

编辑

顺便说一下,我发现了一种查看绑定值查询的尴尬方法：你必须在查询中出现语法错误.例如,如果我更改上面的查询：

my $query = q{
       xINSERT INTO sales (product_code,?)
     };

我按照自己的意愿得到了它：

DBD::mysql::st execute failed: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ‘xINSERT INTO sample (product_code,price) VALUES (‘1’,‘2’,‘3’)’ at line 1

有时真的有帮助.至少它对我有用.