我有以下的脚本:
结果是:
use strict;
use warnings;
my @test = ("a", "b", "c", "a", "ca");
my @res = grep(m#a#, @test);
print (join(", ", @res)."\n");
它应该只返回包含a
的字符串。它完美地工作。
问题是我需要能够动态获取这些字符串。 我尝试了以下方法:
use strict;
use warnings;
my $match = "a";
my @test = ("a", "b", "c", "a", "ca");
my @res = grep($match, @test);
print (join(", ", @res)."\n");
结果是:
我应该怎么做才能使用动态变量来使用a、b、c、a、ca
grep
数组?