Perl 无法执行 sybase 存储过程

Question

我开始使用 perl 和 sybase。我正在尝试执行存储过程

use strict;
use warnings FATAL => 'all';
use DBI qw(:sql_types);
use DBD::Sybase;
use Data::Dumper;

my $dbh = DBI->connect($connect,$usr,$pwd)or die "Couldn't connect!\n" . DBI->errstr;
my $sth = $dbh->prepare("exec progress_web \@id=?, \@as_select=?");
$sth->bind_param(1,5374,SQL_INTERGER);
$sth->bind_param(2,1,SQL_INTERGER);
$sth->execute;
while(my $row = $sth->fetch) {
  print Dumper($row);
}
$sth->finish;
$dbh->disconnect;

连接正常，但是当我尝试执行存储过程时，我

Bareword "SQL_INTERGER" not allowed while "strict subs" in use at ./sybase_test.pl line 15.
Bareword "SQL_INTERGER" not allowed while "strict subs" in use at ./sybase_test.pl line 16.
Execution of ./sybase_test.pl aborted due to compilation errors.

收到 Removing use strict 和警告。

DBI::st=HASH(0x55ad3d830630)->bind_param(...): attribute parameter 'SQL_INTERGER' is not a hash ref at ./sybase_test.pl line 16.

Answer 1

它不是 SQL_INTERGER，而是 SQL_INTEGER。如文档中所列。

您应该知道删除 use strict 并不能解决问题，它会隐藏问题。这可能会让人感到安慰，但没有帮助。

Answer 2

您可以使用：

$sth->bind_param(1,5374,4);
$sth->bind_param(2,1,4);
$sth->execute;