Question

在Perl中，

my @lista = ['THE', 'KITE', 'RUNNER'];
my @listb = grep { $_ ne 'KITE' } @lista;
print "" . Data::Dumper->Dump(\@listb);

时

不打印任何内容

my @lista = ('THE', 'KITE', 'RUNNER');
my @listb = grep { $_ ne 'KITE' } @lista;
print "" . Data::Dumper->Dump(\@listb);

打印一个包含＆＃39; THE＆＃39; ＆＃39;转轮＆＃39;

为什么grep在[]中定义数组时不起作用？

如何对[]中定义的数组进行grep操作？

Answer 1

[]不返回数组;它返回对数组的引用。这样，@lista只包含一个元素。您正在将该引用的字符串化（类似ARRAY(0x61dc18)）与KITE进行比较。看到这两个字符串完全不同，grep会返回引用，并将其存储在@listb中。

我想你想要以下内容：

my $array_a = ['THE', 'KITE', 'RUNNER'];
my @array_b = grep { $_ ne 'KITE' } @$array_a;
print Data::Dumper->Dump(\@array_b);

Answer 2

[]适用于数组，但()返回一个arrayref。要使用数组，请改用use Data::Dumper; my $lista = ['THE', 'KITE', 'RUNNER']; my @listb = grep { $_ ne 'KITE' } @$lista; print Dumper \@listb;。
以下是您的计划的两个替代方案：

use Data::Dumper;
my @lista = ('THE', 'KITE', 'RUNNER'); 
my @listb = grep { $_ ne 'KITE' } @lista;
print Dumper \@listb;

OR

a = lambda x: input('Function in terms of x')

为什么grep不能在perl中的列表上工作

2 个答案: