Perl，dbi与具有类似条件的sql语句 [英] perl, dbi with sql statement with a like condition

问题描述

在我的代码中，我必须执行一个具有类似条件的简单sql查询。
我以这种方式完成

in my code i must do a simple sql query with a like condition. i've do in this way

my $out = "/Users/zero/out.log";
my $filename = "/Users/zero/data.txt";


my $dbh = DBI->connect("DBI:Oracle:sid=$sid;host=$host;port=$port", $user, $pwd) or die "Couldn't connect to database: " . DBI->errstr;
my $query = "select SOMETHING from SOMETHING_1 where SOMETHING like ?||'%' ";
my $sth = $dbh->prepare($query) or die "Connection Error: " . $dbh->errstr;
open (IN,"< $filename") or die("Unable to open $filename");        
my @righe = <IN>;
close IN;
open (OUT,">$out") or die "Unable to open $out";
foreach my $riga (@righe) {
        chomp $riga;
        (my $valore) = split (/\n/, $riga);
        $sth->execute($valore) ||print "Impossibile eseguire la query $query";
        while (my $real = $sth->fetchrow_array) {
                       print OUT "\"$real\"\n";
                    }
    }
$sth->finish;
$dbh->disconnect();

，但查询返回所有行，而忽略类似条件。
我的错在哪里？

but the query return all the rows, ignoring the like condition. Where's my fault?

谢谢

推荐答案

您必须将％char连接到要搜索的变量。

You have to concat the % char to the variable you search for.

my $query = "select SOMETHING from SOMETHING_1 where SOMETHING like ?";
...
$sth->execute($valore.'%') ||print "Impossibile eseguire la query $query";

这篇关于Perl，dbi与具有类似条件的sql语句的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！