Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 195
  • Last Modified:

Find words in $something.

Hi.
I'm looking for a way to find the number of occurances of a word in a webpage.
I do something like this:

use LWP::Simple;
$doc = get 'http://www.freebsd.org/'

What I'd like to do now is to find out how many "and" there is in this webpage that I currently have in the $doc variable.
Anyone have a clue on how to to this? I'll figure it out eventually by myself but since there are some smart people here I
thought I'd ask.

wbr

.haeger
0
haeger
Asked:
haeger
  • 2
1 Solution
 
bebonhamCommented:
%count = map { $_ => $count{$_}++ } split(/\s+/,$doc);  
0
 
bebonhamCommented:
why did you give me a b?

you have already noticed that people give you 'A's for your answers, which are not as good, why should you give me a B, without telling me what is wrong with my answer?
0
 
haegerAuthor Commented:
Hi.
Nothing is wrong with your answer. I thought you gave me a good answer and since "B" was "Good" I thought that was appropriate.
The answer I got was short, sweet and to the point but there was nothing extra or special. Had there been a more fine-grained scale 1-10 or 1-5 You would have gotten a higher mark(6-7 or 4 respectivly), but in my opinion there is a difference between "Good" and "Excellent".

I'm not impossible however. Do you still feel that the grade is inappropriate and wrong and there is a way to change it I can do that. I really did appriciate your help.

wbr

.haeger
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now