Re^2: do $n exist in grep?

  DB<31> push @N, /^..(A|B)./ for qw/xxBxx yyAyy zzNzz/

  DB<32> x @N
0  'B'
1  'A'
  DB<33>
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re^2: do $n exist in grep? Download Code

Replies are listed 'Best First'.
Re^3: do $n exist in grep? by LanX (Saint) on May 12, 2021 at 18:38 UTC
or even easier `DB<34> @a = qw/xxBxx yyAyy zzNzz/ DB<35> @N = map {/^..(A\|B)./} @a DB<36> x @N 0 'B' 1 'A' DB<37>` [download] Hint: `m//` returns an empty list if there's no match Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]