破折号导致DBI中的SQL麻烦

Question

我有一个带有WHERE子句的SQL查询,该子句通常包含一个值,包括以数据库形式存储在CHAR(10)中的破折号.当我明确地调用它时,如下所示:

$sth = $dbh->prepare("SELECT STATUS_CODE FROM MyTable WHERE ACC_TYPE = 'A-50C'");

它工作正常,返回我的第一行; 但是,如果我执行以下操作:

my $code = 'A-50C';
$sth = $dbh->prepare("SELECT STATUS_CODE FROM MyTable WHERE ACC_TYPE = ?");
$sth->execute($code);

或者我这样做:

my $code = 'A-50C';
$sth = $dbh->prepare("SELECT STATUS_CODE FROM MyTable WHERE ACC_TYPE = ?");
$sth->bind_param(1, $code);
$sth->execute();

查询完成,但我没有得到任何结果.我怀疑它与错误解释的破折号有关,但我无法将其链接到Perl问题,因为我使用print打印了我的$ code变量,"My Content: $code\n";所以我可以确认它没有被奇怪地转换.我也尝试为b​​ind_param包含第三个值,如果我指定类似ORA_VARCHAR2,SQL_VARCHAR(尝试了所有可能性),我仍然没有得到任何结果.如果我将它更改为长格式,即{TYPE => SQL_VARCHAR},它会给我一个错误

DBI :: st = HASH <0x232a210> - > bind_param(...):属性参数'SQL_VARCHAR'不是哈希引用

最后,我尝试了不同方式的单引号和双引号以及后退标记以逃避值,但没有任何东西让我获得1行,只有0.任何想法？在文档或搜索中没有找到任何内容.这是oracle供参考.

带错误检查的代码:

my $dbh = DBI->connect($dsn, $user, $pw, {PrintError => 0, RaiseError => 0})
  or die "$DBI::errstr\n";

# my $dbh = DBI->connect(); # connect

my $code = 'A-50C';
print "My Content: $code\n";
$sth = $dbh->prepare( "SELECT COUNT(*) FROM MyTable WHERE CODE = ?" )
  or die "Can't prepare SQL statement: $DBI::errstr\n";
$sth->bind_param(1, $code);
$sth->execute() or die "Can't execute SQL statement: $DBI::errstr\n";

my $outfile = 'output.txt';
open OUTFILE, '>', $outfile or die "Unable to open $outfile: $!";

while(my @re = $sth->fetchrow_array) {
    print OUTFILE @re,"\n";
}

warn "Data fetching terminated early by error: $DBI::errstr\n"
  if $DBI::err;

close OUTFILE;

$sth->finish();
$dbh->disconnect();

我跑了一下,然后回来了:

-> bind_param for DBD::Oracle::st (DBI::st=HASH(0x22fbcc0)~0x3bcf48 2 'A-50C' HASH(0x22fbac8)) thr#3b66c8
dbd_bind_ph(1): bind :p2 <== 'A-50C' (type 0 (DEFAULT (varchar)), attribs: HASH(0x22fbac8))
dbd_rebind_ph_char() (1): bind :p2 <== 'A-50C' (size 5/16/0, ptype 4(VARCHAR), otype 1 )
dbd_rebind_ph_char() (2): bind :p2 <== ''A-50' (size 5/16, otype 1(VARCHAR), indp 0, at_exec 1)
    bind :p2 as ftype 1 (VARCHAR)
dbd_rebind_ph(): bind :p2 <== 'A-50C' (in, not-utf8, csid 178->0->178, ftype 1 (VARCHAR), csform 0(0)->0(0), maxlen 16, maxdata_size 0)

Answer 1

您的问题可能是比较CHAR和VARCHAR数据的结果.

的CHAR数据类型是臭名昭著(并且应当避免),因为它在固定长度格式存储数据.它永远不应该用于保存变长数据.在您的情况下,存储在ACC_TYPE列中的数据将始终占用10个字符的存储空间.当您存储长度小于列大小的值时A-50C,数据库将隐式填充最多10个字符的字符串,因此存储的实际值变为A-50C_____(其中_表示空格).

您的第一个查询有效,因为当您使用硬代码文字时,Oracle会自动为您填充值(A-50C- > A-50C_____).但是,在您使用绑定变量的第二个查询中,您将比较VARCHARa CHAR和不会发生自动填充.

作为问题的快速修复,您可以向查询添加右边距:

SELECT STATUS_CODE FROM MyTable WHERE ACC_TYPE = rpad(?, 10)

一个长期的解决方案是避免CHAR在表定义中使用数据类型VARCHAR2而转而使用.