Question

我正在寻找在Perl中表达这个Python代码段的方法：

data = {"A": None, "B": "yes", "C": None}
key_list = [k for k in data if data[k]]  
# in this case the same as filter(lambda k: data[k], data) but let's ignore that

所以从单向看，我只想要值 None 或 undef 的键。换句话说，我想要的是简洁的perl相当于list comprehension with conditional。

Answer 1

我想你想要grep：

#!/usr/bin/env perl
use strict;
use warnings;

my %data = ( A => undef, B => 'yes', C => undef );

my @keys = grep { defined $data{$_} } keys %data;

print "Key: $_\n" for @keys;

我还认为输入速度太慢，我应该在发布答案之前重新加载页面。顺便说一句，值0或undef可以是处理 null 值的好方法，但请确保记住您正在使用的值。错误值和未定义的值在Perl中不是一回事。澄清一下：undef在布尔测试中返回false，但0也是如此。如果0是有效值，那么您希望明确地测试定义，而不仅仅是真实。（我之所以提到它是因为詹姆斯去了0，我走了另一条路，你可能知道也可能不知道它是否重要。）

Answer 2

使用grep：

#!/usr/bin/perl

use strict;
use warnings;

my %data = ("A" => 0, "B" => "yes", "C" => 0 );
my @keys = grep { $data{$_} } keys %data;

Grep返回右侧列表中的值，其中braces中的表达式求值为true。正如telemachus指出的那样，您希望确保在Perl中理解true / false值。 This question对Perl中的真相有很好的概述。

您可能需要查看map，它将大括号中的表达式应用于列表的每个元素并返回结果。一个例子是：

my @data = ("A" => 0, "B" => 1, "C" => 0 );
my @modified_data = map { $data{$_} + 1 } @data;
print join ' ', @data, "\n";
print join ' ', @modified_data, "\n";

Answer 3

有关主题的变体，请查看autobox（请参阅其实施autobox::Core和Moose::Autobox）

use autobox::Core;

my %data = ( A => undef, B => 'yes', C => undef );
my $key_list = %data->keys->grep( sub { defined $data{$_} } );

say "Key: $_" for @$key_list;

# => Key: B

Moose :: Autobox带有键/值'kv'，它使代码DRYer：

my $key_list = %data->kv->grep( sub{ defined $_->[1] } )->map( sub{ $_->[0] } );

以上是一个更明确甚至更长的版本：

my $key_list = %data->kv
                    ->grep( sub { my ($k, $v) = @$_; defined $v } )
                    ->map(  sub { my ($k, $v) = @$_; $k }         );

Perl相当于（Python-）列表理解

3 个答案: