Perl的SQL SELECT所有

Question

这是我的代码

my $results = $dbh->selectall_hashref('SELECT * FROM sample.teachers where term like "$searchterm%"', 'teacher'); 
my $searchedresults= ""; 
foreach my $e (keys %$results) { 
    print "$e\n"; 
    print "searching\n"; 
    $searchedresults = $e; 
    } 
    print $searchresult."\n"; 

我试图从表中MySQL服务器进行搜索。但似乎它不起作用 我用硬编码的方式测试它，通过用普通字符串替换$ searchterm并且可行。不过，我需要使用$搜索关键词，但我想不通为什么它不能正常工作

Answer 1

my $results = $dbh->selectall_hashref(
    'SELECT * FROM sample.teachers where term like '.$dbh->quote("$searchterm%"), 
    'teacher' 
); 

或

my $results = $dbh->selectall_hashref(
    'SELECT * FROM sample.teachers where term like ?, 
    'teacher', 
    undef, 
    "$searchterm%" 
);