在 Perl 中使用 foreach 代替 map 和 grep

Question

我正在尝试将 map 和 grep 代码完全转换为 foreach 循环，但我在这样做时遇到了麻烦。

这里是获取事件的数组代码

my @events = [
  {
    Sponsor => ’Saash’,
    Time => ’05:00’,
    Date => ’01-03-2021’,
  },
  {
    Sponsor => ’Saash Tech’,
    Time => ’03:00’,
    Date => ’01-03-2021’,
  },
  {
    Sponsor => ’Saash Technology’,
    Time => ’04:00’,
    Date => ’01-03-2021’,
  },
  {
    Sponsor => ’Saash Techs’,
    Time => ’05:00’,
    Date => ’01-03-2021’,
  },
];

my $time = ’05:00’;

这里是 grep 和 map 中使用的代码：

my $data = [
    map
    {
        my $hide;
        if ($_->{'sponsor'}) {
            $_->{'sponsor'} =~ ‘SaAsh’;
            $_->{‘sponsor'} = ‘Saash’ if $_->{’sponsor’} eq 'Saash Techs';
            if ($_->{‘time'} eq ’04:00’ && $_->{‘sponsor'} eq ‘SaAsh’) ) {
                $hide = 1;
            }
        }
        $hide ? () : ( $_ );
    }
    grep { $_->{‘time} =~ $time } @{events}
];

下面是我从 grep 映射转换为 foreach

的代码

my $data;
foreach my $event (@events) {
    if ($event->{‘time’} =~ ’07:00’) {
        my $hide;
        if ($event->{‘sponsor’}) {
            $event->{‘sponsor'} =~ ‘SaAsh’;
            $event->{'sponsor'} = ‘Saash’ if $event->{’sponsor’} eq ‘Saash Techs';
            if ($event->{'time'} eq '04:00' && $event->{'sponsor'} eq ‘SaAsh’) ) {
                $hide = 1;
            }
        }
        $hide ? () : ( $event );
    }
}
$data = [$event];

与 grep 和 map 的代码相比，我在 foreach 代码中得到的输出不同。

有人可以帮助我哪里出错了吗？

Answer 1

foreach my $event (@events) {
   ...
   $hide ? () : ( $event )
}

$data = [$event];

应该是

foreach my $event (@events) {
   ...
   push @$data, $hide ? () : ( $event )
}

my @a = map BLOCK LIST;可以写成

my @a;
for (LIST) {
   push @a, do BLOCK;
}

my @a = grep BLOCK LIST;可以写成

my @a;
for (LIST) {
   push @a, $_ if do BLOCK;
}

当然，do可以通过简化和重构去掉，两个循环可以结合你的情况。执行上述转换和一些清理后，我们得到以下内容：

for my $event (@events) {
   $event->{sponsor} = 'Saash'
      if $event->{sponsor}
      && $event->{sponsor} eq 'Saash Techs';
}

my $data = [];
for my $event (@events) {
   next if $event->{time} ne $time;
   next
      if ($event->{sponsor}
      && $event->{sponsor} eq 'SaAsh'
      && $event->{time} eq '04:00';

   push @$data, $event;
}

您只是将 Saash Techs 中的一些赞助商更改为 @events 中的 Saash，这就是我首先进行修复的原因。偷偷地改变 @events 就像你一直在做的那样是一种不好的做法。

Answer 2

这是答案代码吗？


foreach my $event (@events) {
   next if $_->{time} !~ /$time/;

   if ($event->{'sponsor'}) {
      $event->{'sponsor'} =~ ‘SaAsh’;
      $event->{'sponsor'} = 'Saash' if $event->{'sponsor'} eq 'Saash Techs';
      if ($event->{'time'} eq '04:00' && $event->{'sponsor'} eq ‘SaAsh’) ) {
          $hide = 1;
      }
   }

   push @$data, $hide ? () : ( $event );

}

在 Perl 中使用 foreach 代替 map 和 grep

Use foreach instead of map and grep in Perl

perl

foreach