gpt4 book ai didi

oracle - 破折号导致 DBI 中的 SQL 问题

转载 作者:行者123 更新时间:2023-12-04 22:59:10 24 4
gpt4 key购买 nike

我有一个带有 WHERE 子句的 SQL 查询,该子句的值通常包括作为 CHAR(10) 存储在数据库中的破折号。当我像下面这样明确地调用它时:
$sth = $dbh->prepare("SELECT STATUS_CODE FROM MyTable WHERE ACC_TYPE = 'A-50C'");
它可以正常工作并正确返回我的 1 行;但是,如果我执行以下操作:

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 "My Content: $code\n"; 打印了 $code 变量所以我可以确认它没有被奇怪地转换。我还尝试为 bind_param 包含第三个值,如果我指定 ORA_VARCHAR2、SQL_VARCHAR 之类的东西(尝试了所有可能性),我仍然没有得到任何结果。如果我将其更改为长格式,即 { TYPE => SQL_VARCHAR } 它会给我一个错误

DBI::st=HASH<0x232a210>->bind_param(...): attribute parameter 'SQL_VARCHAR' is not a hash ref



最后,我以不同的方式尝试了单引号和双引号以及反引号来转义值,但没有任何东西让我得到 1 行,只有 0。有什么想法吗?在文档或搜索中没有找到任何东西。这是甲骨文供引用。

带错误检查的代码:
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)

最佳答案

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

您的第一个查询有效,因为当您使用硬编码文字时,Oracle 会自动为您填充值( A-50C -> A-50C_____ )。但是,在您使用绑定(bind)变量的第二个查询中,您正在比较 VARCHAR反对 CHAR并且不会发生自动填充。

作为问题的快速解决方法,您可以在查询中添加右填充:

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

一个长期的解决方案是避免使用 CHAR表定义中的数据类型并切换到 VARCHAR2反而。

关于oracle - 破折号导致 DBI 中的 SQL 问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/31546787/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com