in reply to Re: grep surprise
in thread grep surprise

ikegami shows the way to do it above.

Using List::Util::first works of course but does not add any value at all.

Replies are listed 'Best First'.
Re^3: grep surprise
by LanX (Saint) on Nov 12, 2018 at 13:46 UTC
    > does not add any value at all.

    Not very surprising that you think that way.

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

[reply]
      How about the value of verbosity? 
      $ perl -we '
use strict;
my @array=(1,2);
my $matches = 0;
for my $ea (1..3) {
  $matches = grep {
    printf("idx: %d, val: %d == %d? %3s, ",
      $_, $array[$_], $ea, ($array[$_] == $ea) ? "YES" : "NO");
    $array[$_] == $ea; 
  } (0..$#array);
  print "matches: $matches\n";
}
'

__output__
idx: 0, val: 1 == 1? YES, idx: 1, val: 2 == 1?  NO, matches: 1
idx: 0, val: 1 == 2?  NO, idx: 1, val: 2 == 2? YES, matches: 1
idx: 0, val: 1 == 3?  NO, idx: 1, val: 2 == 3?  NO, matches: 0

      [download]

      and who ever said Perl was not readable... :)

[reply]
[d/l]
    A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom