perl - 使用逻辑或从 Perl 中的数组中删除项目

Question

我有一个数组。我希望数组不包含任何 $regex 值(以逻辑或方式)。我以否定的方式使用 grep 命令，但我认为这并不能解决我的问题。非常感谢任何帮助。谢谢

 #!/usr/bin/perl -w 

use Data::Dumper;

    my @array = ['hard_link is not present', 'dynamic variable', 'segfault'] ;

    my $regex = qr/create_hard_link|Failed to reassign|Global variable/ ;

    print Dumper(\@array) ;
    my @wanted_array = grep  {!$regex} @array ;
    print Dumper(\@wanted_array);

它给我一个输出

$VAR1 = [
          [
            'hard_link is not present',
            'dynamic variable',
            'segfault'
          ]
        ];
$VAR1 = [];

Answer 1

与同名命令行工具不同，grep 不采用正则表达式模式；它需要一个表达式，该表达式的计算结果为要保留的项目的真实值。

$regex 有一个真值 - 编译的正则表达式模式不会字符串化为 0 或空字符串 - 所以 !$regex始终为 false，因此 grep 会过滤掉所有内容。您想要执行正则表达式匹配，因此您将需要正则表达式匹配运算符。

my @wanted_array = grep  { !/$regex/ } @array;

<小时/>

还有第二个问题。

# An array that contains a single element: a reference to an anonymous array.
my @array = ['hard_link is not present', 'dynamic variable', 'segfault'];

应该是

# An array that contains a three strings.
my @array = ('hard_link is not present', 'dynamic variable', 'segfault');