我有一个数组@ list1中的文件名前缀列表和第二个数组@ list2中的完整文件名列表.最后,我想得到第三个数组,其中只包含与@ list1中的前缀不匹配的完整文件名.我开始时：
for my $match (@list1) {
@list3 = grep { !/$match/ } @list2;
}
但它没有做我认为会做的事情.我有什么选择才能得到我正在寻找的结果.
解决方法
也许替代正则表达式会有所帮助：
use strict; use warnings; my @list1 = qw/a.f c data g j/; my @list2 = qw/myfile.txt a.file.txt data.txt otherfile.txt jargon.txt/; my $regex = join '|',map "\Q$_\E",@list1; my @list3 = grep !/^(?:$regex)/,@list2; print "$_\n" for @list3;
输出：
myfile.txt otherfile.txt