how to print dual key hash..

[newBee]

I have the fallowing code segment in my code. I want to print my
%termWeightHash to see if i have correct data at the end of the this
computation. Since this hash has two keys(I guess way to think that is
hash within) I am not sure how to print it..

regular one key has i could print like this...

while (($key, $value) = each(%termWeightHash) ) {
        print "$key => $value\n";
}

foreach $document(@documents){
        $valueOfTermD = 0;
        $powerOfTermD = 0;
        foreach $term(keys %termWeightHash){
                if($termWeightHash{$term}{$document}){
                        $powerOfTermD = $powerOfTermD + 
$termWeightHash{$term}{$document}*
$termWeightHash{$term}{$document};
                }
        }
        $valueOfTermD = sqrt($powerOfTermD);
        $hashTermD{$document} = $valueOfTermD;
}

thanks


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/