Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^4: Why doesn't Perl provide %_ as the hash equivalent of @_ in subs? (ugly++)

by smls (Friar)
on Sep 27, 2013 at 10:15 UTC ( [id://1055955]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Why doesn't Perl provide %_ as the hash equivalent of @_ in subs? (ugly++)
in thread Why doesn't Perl provide %_ as the hash equivalent of @_ in subs?

If it would make all function calls slower, then I agree with you that it wouldn't be worth it.

But does that really have to be the case?
choroba suggested above that the hash could be built when first used... Would that not be technically feasible?

  • Comment on Re^4: Why doesn't Perl provide %_ as the hash equivalent of @_ in subs? (ugly++)

Replies are listed 'Best First'.
Re^5: Why doesn't Perl provide %_ as the hash equivalent of @_ in subs? (ugly++)
by hdb (Monsignor) on Sep 27, 2013 at 10:29 UTC

    Like with $&, $`, $' you would only have a performance hit if you actually used it.

      In recent versions of Perl there's virtually no performance hit using these variables any more.

      use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name
Re^5: Why doesn't Perl provide %_ as the hash equivalent of @_ in subs? (ugly++)
by BrowserUk (Patriarch) on Sep 27, 2013 at 10:53 UTC
    If it would make all function calls slower, then I agree with you that it wouldn't be worth it.

    3 times slower...

    sub withNames{ local %_ = @_; ++$_{$_} for keys %_; };; sub sansNames{ ++$_ for @_; };; cmpthese -1,{a=>q[ withNames( 1 .. $_*2 ) for 1..5 ], b=>q[ sansNames( + 1..$_ ) for 1 .. 5 ] };; Rate a b a 32135/s -- -75% b 127549/s 297% --
    hash could be built when first used... Would that not be technically feasible?

    Feasible, yes.

    A good idea? Sounds like a recipe for disaster to me.

    And all to save you adding local %_ = @_; where you want it. Worth the effort? Absolutely not.


    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

      sub withNames{ local %_ = @_; ++$_{$_} for keys %_; };;

      Try  ++$_ for values %_;

      :P lol

      Yeah, local %_=@_; is not hard to type :)

        Try ++$_ for values %_;

        That improves things:

        sub sansNames{ ++$_ for @_; };; sub withNames{ local %_ = @_; ++$_ for values %_; };; cmpthese -1,{ a=>q[ withNames( 1 .. $_*2 ) for 1..5 ], b=>q[ sansNames( 1..$_ ) for 1 .. 5 ] };; Rate a b a 35072/s -- -71% b 122333/s 249% --

        Though ... a benchmark of named parameters that doesn't use the names to access the parameters ... :)


        With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
        Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
        "Science is about questioning the status quo. Questioning authority".
        In the absence of evidence, opinion is indistinguishable from prejudice.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2024-04-26 00:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found