Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Re: How to compare hash value (sort, join, hash)

by Adam (Vicar)
on Apr 25, 2003 at 17:25 UTC ( #253207=note: print w/ replies, xml ) Need Help??


in reply to Re: How to compare hash value (sort, join, hash)
in thread How to compare hash value

Tye, you are pushing onto a scalar. Perl usually prefers for you to push things onto an array. :)

>perl -Mstrict -we "my $foo = []; push $foo, 'bar'"
Type of arg 1 to push must be array (not private variable) at -e line 1, at EOF
Execution of -e aborted due to compilation errors.

>perl -Mstrict -we "my %h; push $h{foo}, 'bar'"
Type of arg 1 to push must be array (not hash element) at -e line 1, at EOF
Execution of -e aborted due to compilation errors.
I think what you wanted to say here was:
my %merge; for my $key ( keys %myhash ) { push @{ $merge{ join $;, sort @{ $myhash{$key}} } }, $key; }
I like it though, and it helps me solve an e-mail consolidation problem I had been working on.
-Adam


Comment on Re: Re: How to compare hash value (sort, join, hash)
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2014-12-27 11:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (177 votes), past polls