Я ищу способы выразить этот фрагмент Python в Perl:
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 ignore that
Поэтому, глядя на него в одну сторону, мне просто нужны ключи, где значения равны None или undef. Если посмотреть на это по-другому, то я хочу, это сжатый эквивалент pera с условным.
Я думаю, вы хотите 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 может быть хорошим способом обработки нулевых значений, но обязательно помните, что вы используете. Значение false и значение undefined не совпадают с Perl. Чтобы уточнить: undef возвращает false в булевом тесте, но также 0. Если 0 - допустимое значение, вы хотите явно проверить определенность, а не просто правду. (Я упоминаю об этом, потому что Джеймс пошел за 0, и я пошел в другую сторону, и вы можете или не знать, имеет ли это значение.)
Используйте grep:
#!/usr/bin/perl
use strict;
use warnings;
my %data = ("A" => 0, "B" => "yes", "C" => 0 );
my @keys = grep { $data{$_} } keys %data;
Grep возвращает значения из списка в правой части, для которого выражение в фигурных скобках имеет значение true. Как указывает telemachus, вы хотите убедиться, что вы понимаете истинные/ложные значения в Perl. Этот вопрос имеет хороший обзор правды в 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";
Для изменения темы читайте 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 } );