Re^2: grep flip flop (range operator)

[Anonymous Monk]

in reply to Re: grep flip flop (range operator)
in thread grep flip flop (range operator)

Bingo. Thanks.

That "Range Operators" page I have now read in my console via perldoc -f ..

It dawned on me after posting that the first condition is never true and I came up with

$ perl  -le " print for grep { my $what = scalar($Q++==0 ..($_ eq q{Q}
+)); warn $what; $what } qw{ a b c Q r s }; "
1 at -e line 1.
2 at -e line 1.
3 at -e line 1.
4E0 at -e line 1.
Warning: something's wrong at -e line 1.
Warning: something's wrong at -e line 1.
a
b
c
Q

[frozenwithjoy]

To make things a bit more readable, you could use the match-once operator like this:

perl -le " print for grep ?? .. /Q/, @ARGV " a b c Q r s
___
a
b
c
Q

[Anonymous Monk]

Uh-oh

$ perldoc -f ??
No documentation for perl function '??' found

[frozenwithjoy]

Ah, take a look at Regexp Quote Like Operators and then search for m??. In my snippet, I shortened m?? to ??.