Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re^2: (Mis)Understanding <c>grep...eq $_<c>

by ysth (Canon)
on Feb 24, 2009 at 07:21 UTC ( #745922=note: print w/replies, xml ) Need Help??

in reply to Re: (Mis)Understanding <c>grep...eq $_<c>
in thread (Mis)Understanding grep...eq $_

It makes no sense to use it on scalars.
Hey, that's not such a bad idea. For conditional inclusion in lists, instead of something like:
@foo = ( ... ( $include_bar ? 'bar' : () ) ... );
you'd have
@foo = ( ... grep( $include_bar, 'bar' ) ... );

Replies are listed 'Best First'.
Re^3: (Mis)Understanding grep...eq $_ (versus ex-bang-bang)
by grinder (Bishop) on Feb 24, 2009 at 07:50 UTC

    Ooh, nice! That's eminently readable. Much more likely to survive a code review than aristotle's ex-bang-bang operator.

    Rather than

    my @part = ( '', ( 'admin' ) x!! $is_admin_link, ( $subsite ) x!! defined $subsite, $mode, ( $id ) x!! defined $id, ( $submode ) x!! defined $submode, );

    we would now have

    my @part = ( '', grep( $is_admin_link. 'admin' ), grep( defined($subsite), $subsite ), $mode, grep( defined($id), $id ), grep( defined($submode), $submode ), );

    I like it.

    • another intruder with the mooring in the heart of the Perl

      What is the difference?


        I dare say the ex-bang-bang approach is faster, but then I would be rightly accused of premature optimisation. The grep approach, while slower (but at a cost approaching zero) is more easily figured out from first principles.

        The effect of x!! is not easily discerned; one has to write a harness to explore its behaviour. Either because one has encountered a similar idiom in a different language and wants to see if Perl matches expectations based on prior experience, or else they have not the faintest idea of what it does (and once one sees what it does, can they determine why?)

        So in summary, there is a difference. One is tricksy, the other is merely degenerate.

        • another intruder with the mooring in the heart of the Perl

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://745922]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2022-01-27 23:33 GMT
Find Nodes?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:

    Results (72 votes). Check out past polls.