Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Hash problem - Perl noob

by japhy (Canon)
on Sep 15, 2006 at 16:54 UTC ( #573193=note: print w/replies, xml ) Need Help??

in reply to Hash problem - Perl noob

Here's a bit of critique...
for $i (@phrase) { $wordfreq{"$phrase[ $j ]"}++; # print "$wordfreq{\"$phrase[ $j ]\"} appears $wordfreq{\"$phrase[ +$j ]\"}\n"; $j++; }
First, in each run of the loop over @phrase, $i holds the particular element, so you can be saying $wordfreq{$i}++ instead of $wordfreq{$phrase[$j]}. Second, you're using quotes around $phrase[$j] that are totally unnecessary. Third, your (commented out) print statement probably should have looked like: print "$i appears $wordfreq{$i} times\n";.

As for your "trouble formatting the report", maybe you should print some newlines or something.

for my $word (keys %wordfreq) { print "$word appears $wordfreq{$word} times\n"; }

Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart

Replies are listed 'Best First'.
Re^2: Hash problem - Perl noob
by UncleTom (Initiate) on Sep 15, 2006 at 17:09 UTC
    Thanks for the help. Makes total sense now.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://573193]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2022-05-18 14:22 GMT
Find Nodes?
    Voting Booth?
    Do you prefer to work remotely?

    Results (71 votes). Check out past polls.