in reply to Re^8: Is there any difference between prototype % and @ ?
in thread Is there any difference between prototype % and @ ?
This can't be chained at least not easily w/o more transformations in the middle.
Show me an example of one of these mythical chains over a listified hash? (One that makes some sense!)
and your code is quite obfuscated...
Hm. You find that "obfuscated"? I always rated you as one of the more adept perlers.
Besides, isn't a big part of the purpose of subroutines to hide the "difficult stuff", in order to simplify the code that calls it?
though ++ for creative use of each within map.
Thanks. The same method works with hsort to make sorting hashes a breeze:
sub hsort (&\%) { my( $code, $href ) = @_; sort( $code map[ each %$href ], 1 .. keys %$href ); } my %orig = ( cat => 22, dog => 23, category => 66, catalyst => 77, cataclysm => 88, dogma => 89, dogstar => 92, ); ## Oh look! A chain :) print 'sorted by key: ', map "$_->[0]=>$_->[1] ", hsort{ $a->[0] cmp $ +b->[0] } %orig; print 'sorted by val: ', map "$_->[0]=>$_->[1] ", hsort{ $a->[1] <=> $ +b->[1] } %orig; C:\test>hFP.pl sorted by key: cat=>22 cataclysm=>88 catalyst=>77 category=>66 dog=>23 + dogma=>89 dogstar=>92 sorted by val: cat=>22 dog=>23 category=>66 catalyst=>77 cataclysm=>88 + dogma=>89 dogstar=>92
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.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^10: Is there any difference between prototype % and @ ?
by LanX (Saint) on Feb 23, 2013 at 15:09 UTC | |
by AnomalousMonk (Archbishop) on Feb 23, 2013 at 16:56 UTC | |
by LanX (Saint) on Feb 23, 2013 at 18:17 UTC | |
by BrowserUk (Patriarch) on Feb 23, 2013 at 15:26 UTC | |
by BrowserUk (Patriarch) on Feb 23, 2013 at 19:39 UTC | |
by LanX (Saint) on Feb 23, 2013 at 22:12 UTC | |
by BrowserUk (Patriarch) on Feb 23, 2013 at 23:42 UTC | |
by LanX (Saint) on Feb 24, 2013 at 03:34 UTC | |
|
In Section
Seekers of Perl Wisdom