Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Print Keys - values of two hashes in a tabulated fromat

by bobf (Monsignor)
on May 25, 2010 at 05:48 UTC ( #841478=note: print w/replies, xml ) Need Help??


in reply to Print Keys - values of two hashes in a tabulated fromat

Unless I am misunderstanding the problem, I don't think you need the inner loop at all. You only need to iterate over the list of keys once.

If that doesn't produce the desired result, please clarify the problem.

Update: Here is a modified version of your code (which may be more clear than my reply above).

use strict; use warnings; my %hash_1 = ( 0.2 => '12', 0.4 => '13', 0.6 => '14', ); my %hash_2 = ( 0.2 => '19', 0.4 => '18', 0.6 => '20', ); foreach my $key ( sort { $a <=> $b } keys %hash_1 ) { my $diff_obs_perm = $hash_1{$key}-$hash_2{$key}; my $FDR = $hash_2{$key} / $hash_1{$key}; my $currentdeltaprint = join ("\t", $key, $hash_1{$key}, $hash_2{$key}, $diff_obs_perm, $FDR ); print "$currentdeltaprint\n"; }

Replies are listed 'Best First'.
Re^2: Print Keys - values of two hashes in a tabulated fromat
by sesemin (Beadle) on May 25, 2010 at 05:55 UTC
    Thanks, I fixed it according to your recommendation. Then I saw the corrected code.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://841478]
help
Chatterbox?
[RonW]: as I understand it, RPerl "compiles" a subset of Perl to C, so I would expect the final executable to run a lot faster
[RonW]: Is there an English language version of the site?
[LanX]: but Afaik Perl is on average about 10-20 times slower than C
[LanX]: no
[LanX]: but I could ask Herbert to elaborate
[1nickt]: http://rperl.org/ performance_benchm arks.html

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2017-05-22 20:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?