Question

在下午,我可以做以下工作,把所有物体列入一份列有特定财产的清单。在此例子中,我填写了<代码>id。 www.un.org/Depts/DGACM/index_spanish.htm

ids = [ obj.id for obj in objs if obj.id > 100]

我怎么也这样做呢? 我认为,我想使用<条码>>地图<>,但我不知道如何有条件地从设定的原产地到设定的目的地。

Answer 1

<>代码>栏目可退还原清单中每个要素的0或更多内容。删除一个要素,仅退回空名单(>):

my @ids = map { $_->id > 100 ? $_->id : () } @objs;

假设@objs中的物体有<条码>id属性和相关用户。如果你想要直接接触,你也可以这样做:

my @ids = map { $_->{id} > 100 ? $_->{id} : () } @objs;

Or, you can just combine map and grep:

my @ids = map { $_->id } grep { $_->id > 100 } @objs;

# Or reverse the order to avoid calling $_->id twice:
my @ids = grep { $_ > 100 } map { $_->id } @objs;

我不敢肯定其中哪一部分会更有效率,但除非<代码>@objs确实大,这不大可能重要。

如果从物体中提取的数值昂贵,可以计算,那么,你可以收取测试和收益价值的价值:

my @vals = map { my $v = $_->expensive_method;  $v > 100 ? $v : () } @objs;

Answer 2

使用<代码>grep,只退还符合条件的项目。它以其他语文使用<条码>。

例如:

my @nums = (1, 50, 7, 105, 200, 3, 1000);
my @numsover100 = grep { $_ > 100 } @nums;
foreach my $num (@numsover100) {
    print $num . "
";
}

Answer 3

或许可以通过将、地图和 filter <>a>,而这正是我们在列入谅解书之前所做的。

Answer 4

使用地图和环形,是名单上的两倍。建设你自己:

sub fancy_filter {
  my ($map_block, $grep_block, @list) = @_;
  my @results;
  foreach my $item (@list) {
    local $_ = $item;
    if ($grep_block->()) {
      push @results, $map_block->();
    }
  }
  return @results;
}

my @ids = fancy_filter(
  sub { $_->{id} },       # map block
  sub { $_->{id} > 100 }, # grep block
  @id_list,
)

友情链接