public
Created

  • Download Gist
gistfile1.pl
Perl
1 2 3 4 5 6 7 8 9
while (my ($sense, $sense_info) = each %sense_information_hash) {
print "\nKey => $sense\n";
print " Count(sense) => $sense_info->[0]\n";
 
while (my ($word, $count) = each %{ $sense_info->[1] }) {
print " Word wt sense => $word\n";
print " Count => $count\n";
}
}

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.