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

发布时间：2020-12-16 06:22:56 所属栏目：大数据来源：网络整理

导读：我有一个数组@ list1中的文件名前缀列表和第二个数组@ list2中的完整文件名列表.最后,我想得到第三个数组,其中只包含与@ list1中的前缀不匹配的完整文件名.我开始时： for my $match (@list1) { @list3 = grep { !/$match/ } @list2;} 但它没有做我认为会做

我有一个数组@ 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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!