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

Re: how to loop through hash tables more efficiently

by choroba (Abbot)
on Sep 17, 2012 at 20:53 UTC ( #994101=note: print w/ replies, xml ) Need Help??


in reply to updated_again: how to loop through hash tables more efficiently

Can you please specify what output you expect from the given sample files and why? You code does not output anything. To make it ouput something, I had to add the key among its values in hash1:

k_aX,k_aX
It then prints all the keys from hash2. That is probably not what you wanted.

UPDATE:
BTW, my ($hash1, $hash2)= @ARGV or die "$!"; will return strange errors (or none at all) if no arguments are supplied.

@ARGV == 2 or die "Specify two arguments.\n";
should work better. Also, using double quotes in readhash("$hash1") where $hash1 is a file name is useless. Just readhash($hash1);.
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ


Comment on Re: how to loop through hash tables more efficiently
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2014-11-28 17:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (199 votes), past polls