Perl MySQL - 如何拆分搜索字符串并“动态”匹配 LIKE %$word1%$word2%？

Question

我又卡住了。

我有一个搜索字符串并将其分配给一个变量：

my $search =  'foo bar blue widget'
$search =~ s/[\n\r]+|^\s+|\s+$//g; #remove leading and trailing spaces n stuff

我正在使用

SELECT FROM `sometable` WHERE `coltosearch` LIKE '%$search%'

但是，只会匹配“foo bar blue widget”或“foo”。

我也想匹配“foo bar”或“foobar”。

所以，我想我必须这样做：

 my $search =  'foo bar blue widget';
    $search =~ s/[\n\r]+|^\s+|\s+$//g; #remove leading and trailing spaces n stuff
 my $search1 =  $search;
    $search1 =~ s/^\s+|\s+$|\s*//g; #remove all spaces

   SELECT FROM `sometable` WHERE `coltosearch` LIKE '%$search%' OR LIKE '%$search1%'

嗯，这对于“foo bar blue widget”和“foobarbluewidget”可能没问题。 （如果有效）

所以，我猜我将不得不遍历 $search，并为每个单词分配变量。

但是，我永远不知道在 $search 中我会有多少个单词。

所以，我被困住了。我可以这样做吗：

my $search =  'foo bar blue widget'; #in from search form. Actually a $var
$search1 =~ s/^\s+|\s+$|\s*//g; #remove all spaces
$search1 = "%$search1%"; # Makes %foobarbluewidget%

## Now make individual words somehow ##
my @searcharry;
my $cnt='0';
my $searchword;
my @searchsplit = $search;
while $searchword (@searchsplit){
push (@searcharry,$searchword[$cnt]);
$cnt++;
}

但是我如何让@searcharry 进入：

$search =~ s/\s/%/gi;
$search =~ s/%%/%/gi; #I think makes %foo%bar%blue%widget%

所以我可以：

 SELECT FROM `sometable` WHERE `coltosearch` LIKE '$search' OR LIKE '$search1'

我可能离基地很远。这对我来说真的很难。 我只想匹配搜索字符串中的任何单词，或者如果所有单词一起运行则匹配。

对不起，我是个菜鸟。我的粗鲁尝试，我相信是对 Perl 和真正的程序员的侮辱。

感谢您的帮助。

Answer 1

如果你有$string = "foo bar blue widget"，那么你会这样做：

my @values = split '\s+', $string;
my $where = "WHERE $col LIKE ?";
$where .= " OR LIKE ?" x $#values;

这将为您的"foo bar blue widget" 字符串创建WHERE column LIKE ? OR LIKE ? OR LIKE ? OR LIKE ? 的where 子句。

然后您使用DBI placeholders and bind values，因此您不必担心代码中的SQL injection attacks。