基于第二个数组从数组中删除元素

Question

我有一个数组中的文件名前缀@list1列表和第二个数组中的完整文件名列表@list2.最后,我想得到第三个数组,其中只包含与前缀不匹配的完整文件名@list1.我开始时:

for my $match (@list1) {
  @list3 = grep { !/$match/ } @list2;
}

但它没有做我认为会做的事情.我有什么选择才能得到我正在寻找的结果.

Answer 1

也许替代正则表达式会有所帮助:

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