perl, dbi avec une instruction SQL avec une condition similaire

Question

Dans mon code, je dois faire une simple requête sql avec une condition similaire. j'ai fais de cette façon

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(); 

mais la requête retourner toutes les lignes, en ignorant la condition comme. Où est ma faute?

de

Answer 1

Remerciez Vous devez concaténer le% omble chevalier à la variable que vous recherchez.

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