http://qs321.pair.com?node_id=1018538


in reply to compute the occurrence of words

Please explain what the line $data=<FH> does and why it is there?

Secondly, why would you want to enumerate occurrences of unique things in any other way than as a hash?

You're new to Perl and so it seems an odd data type, but once you get used to using them hashes are a phenomenally useful tool.

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Replies are listed 'Best First'.
Re^2: compute the occurrence of words
by vinoth.ree (Monsignor) on Feb 13, 2013 at 13:57 UTC

    Hi Utilitarian yes I agree that hash is the best way to find the unique things, but BigGer is not trying to find the unique words, he tried in his code to counts the occurrence of each word.

      Perhaps I was unclear, one of the things you have to do in order to count the number of occurrences of each word in a given text is to create a list of the unique words present, the other thing you have to do is associate a count with each of these words.

      If you can think of a data structure more suited to this purpose than an associative array or hash, I'd be very interested.

      print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."