arrays - 使用 Perl 比较一组字符串和一个文件

Question

我正在尝试编写一个 Perl 脚本，它将找出一组字符串和一个文件之间的差异，并且我想打印与字符串不匹配的文件内容。

我的 INPUT1 将类似于:(字符串集)

AAAAA
BBBBB
CCCCC
DDDDD
EEEEE   --- These are user ids which should be passed in the script

我的INPUT2将是一个名为User.txt的文件，其中有许多ID，包括上面提到的ID

ABBAAA
ACARVAV
AAAAA
BBBBB
CCCCC
DDDDD
EEEEE
BGATA
ETYUIOL

我希望我的输出是这样的

ABBAAA
ACARVAV
BGATA
ETYUIOL

到目前为止我已经到达

my @things_to_find = qw(AAAAAA BBBBB CCCCC DDDDD EEEEE);
my $comparefile = "User.txt";
open ( my $compare_filehandle, "<", $comparefile ) or die $!;
while ( my $line = <$compare_filehandle> ) 
{
    foreach my $thing ( @things_to_find )
    {
        print "Match found with: $line" if $line !~ /$thing/;
    }
}

但这并没有产生所需的输出。我对 Perl 很陌生，所以您的任何建议对我都会非常有帮助。

Answer 1

尝试一下:

use List::Util qw(none);
my @things_to_find = qw(AAAAAA BBBBB CCCCC DDDDD EEEEE);
my $comparefile = "User.txt";
open ( my $compare_filehandle, "<", $comparefile ) or die $!;
while ( my $line = <$compare_filehandle> ) 
{
    print $line if none { $line =~ /\b$_\b/}  @things_to_find;
}

文档List::Util