I have a small problem perl code program maybe you can reply within a few minutes.. My problem is that I transfered my data into hash(hash of hash)... I can access any element in hash in our loop.. But When I try to access from out of loop or out of function I cant... I initilizaed empty hash but I didnt work.. How can use my hash,and how can I make it global... If you have time and if you can look my code , I will be happy... Thanks..here my code
#!/usr/bin/perl $putword=0; $q63=7; &getfile("query63.txt"); sub getfile { open (FILE, $_[0]); my @data = <FILE>; close (DATA); for($i=0; $i<=$#data;$i++){ $index=$i; @words=split(/\s+/,$data[$index]); $count=$#words; if($count==2) { @words = split(/\s+/,$data[$index]); $count=0; $putword=$putword+1; if ($words[2] != 0){ $ctf=$words[1]; $df=$words[2]; } } else { @words = split(/\s+/,$data[$index]); %query=($putword =>{ctf=>$ctf, df=>$df, $words[1]=>{doclen =>$words[2], tf =>$words[3], } }, ); #When I write here,I can get value..here inside the loop #print $query{2}{1}{doclen}; } } #when I write here,I got nothing,,this is outside of loop.. print $query{2}{1}{doclen};But }
In reply to accessing hash by historysav
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |