Re: do $n exist in grep?

Not that I'm aware of. But you can always DIY:

$ perl -E 'grep { /^..(A|B)./ and push @f, $1 } @ARGV; say @f' xxBxx y
+yAyy
BA
$
[download]

🦛

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

Replies are listed 'Best First'.
Re^2: do $n exist in grep? by LanX (Saint) on May 12, 2021 at 16:28 UTC
`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}	[reply] [d/l]
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]
Re^2: do $n exist in grep? by misterperl (Friar) on May 12, 2021 at 14:47 UTC
nice , TY u got an UPVOTE!	[reply]