Problem in a Loop

madM has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks! I have this loop but if i run it i become in the hash reference $freqocurrence a lot of 0s and i don´t know why.. any suggestions?

my $freqocurrence={};
my $observation={};
my $total10=0;
sub freq_oc{
    foreach my $key (%$observation){
        $total10 += $observation->{$key};
    }


foreach my $key (%$observation){
    $freqocurrence->{$key} = $observation->{$key}/$total10;
    print "Frequency of ocurrence:Aminoacid $key-> $freqocurrence->{$k
+ey}\n";
    }
    print Dumper $observation;
    print Dumper $freqocurrence;
}
[download]

Comment on Problem in a Loop Download Code

Replies are listed 'Best First'.
Re: Problem in a Loop by hdb (Monsignor) on Sep 19, 2013 at 13:01 UTC
If you want to loop over the keys of the hashes, you have to say so: `foreach my $key (keys %$observation){ foreach my $key (keys %$observation){` [download]	[reply] [d/l]
Re^2: Problem in a Loop by madM (Beadle) on Sep 19, 2013 at 13:22 UTC
now it works but i have another question .. do you know why when i print data Dumper i don´t get anything? `my $freqocurrence={}; sub freq_oc{ foreach my $key (keys %$observation){ $total10 += $observation->{$key}; } foreach my $key (keys %$observation){ $freqocurrence->{$key} = $observation->{$key}/$total10; print "Frequency of ocurrence: Aminoacid $key-> $freqocurrence +->{$key}\n"; } } print Dumper $freqocurrence;` [download]	[reply] [d/l]
Re^3: Problem in a Loop by hdb (Monsignor) on Sep 19, 2013 at 13:28 UTC
I can only guess that your script misses the following three lines near the top: `use strict; use warnings; use Data::Dumper;` [download]	[reply] [d/l]
Re^2: Problem in a Loop by madM (Beadle) on Sep 19, 2013 at 13:12 UTC
thanks! i completely forgott it! :D	[reply]
Re: Problem in a Loop by derby (Abbot) on Sep 19, 2013 at 13:25 UTC
Ooo ... this is one of chromatic's How to Identify a Good Perl Programmer questions -- "What do you get if you evaluate a hash in list context?" -derby	[reply]


Do you know where your variables are?
	PerlMonks