0

此脚本适用于所有不需要 % 通配符的命令。当我尝试包装 ? 在 %?% 中产生绑定错误。我还尝试在运行脚本时将 %value% 添加到参数中，它也会产生相同的错误。有没有办法将参数替换为 perl 中的 SQL DBI 命令？

提前致谢。

#!/usr/bin/perl

use DBI;
use Text::Diff;
use File::stat;
use Fcntl ':flock';

open (LOCK_FH, $0) || die "$0 for lock: $!\n";
flock (LOCK_FH, LOCK_EX|LOCK_NB) || die "$0 already running\n";

$BINDVAR = $ARGV[0];
$dbname = "COnnectionDetailsHere";
$un = "username";
$pw = "password";

my $dbh = DBI->connect ( $dbname, $un, $pw, { PrintError=>1, RaiseError=>1, AutoCommit=>0, LongReadLen=>5056}) or die "Couldn't connect to DB: " . DBI->errstr;

$sql = <<SQL

select * from foo where bar like '%?%' '?'

SQL
;

$stm = $dbh->prepare($sql) or die "SQL failed to prepare $DBI::errstr\n";

$stm->bind_param(1,($BINDVAR));

$stm->execute() or die "Couldn't execute the statement: " . $stm->errstr;
4

2 回答 2

4

不是添加%导致问题的，而是添加引号。?是占位符。'?'是一个字符串文字，计算结果为问号。

先前的答案有效地建议您将串联移动到 Perl 端。

my $sth = $dbh->prepare('SELECT * FROM foo WHERE bar LIKE ?');
$sth->execute('%' . $something . '%');

您可以使用正确的语法在服务器中继续执行此操作。

my $sth = $dbh->prepare(q{SELECT * FROM foo WHERE bar LIKE '%' || ? || '%'});
$sth->execute($something);

但这没有任何好处，并且有使用不兼容 语法的风险。

于 2012-10-07T23:04:55.817 回答
2

将%放入变量中，不要在 . 周围加上引号 ?。这就是把你搞砸的原因——引号把它变成了一个字面的问号。

#!/usr/bin/env perl    

use strict;
use warnings;

use DBI;

my $dbh = DBI->connect('dbi:SQLite:dbname=:memory:');
$dbh->do('CREATE TABLE foo ( bar text )');
$dbh->do(q(INSERT INTO foo VALUES ('xyzzy')));

my $sth = $dbh->prepare('SELECT * FROM foo WHERE bar LIKE ?');
$sth->execute('%');

print $sth->fetchrow_array . "\n";

输出：

$ ~/src/tmp/like_qry 
xyzzy
于 2012-10-07T21:54:51.280 回答