perl中字符串的Grep值

我有一个数组，它将有如下值：

("test","test1","test3").

现在我有一个字符串，它的值如下

“test”、“test4”、“test3”、“test5”

我想从数组中的字符串中获取匹配值

@has = grep(m/$_/i,$strin) @array_list;

我们如何才能做到这一点请帮助我。

您想要的是：

@has = grep { $string =~ m/$_/ } @array_list;

---

一般来说，这个代码块应该为元素返回true，您希望将其变灰。

应该是

grep{$string=~m/$\u/}

，这取决于

$string

是什么以及作者的想法。或者有什么特别的原因你认为应该是这样的吗？这不起作用，看我的问题，我已经更新了，事实上，没有。你不需要通过

grep

代码块。很明显，它接受代码块或表达式作为其第一个参数。但是当你使用一个块时，你忽略了第一个和第二个参数之间的逗号。真的！我已经从答案中去掉了谎言。