Regular Experession - Hashes

[aphro2178]

I know that this is an easy peasy question, but I am a beginner at PERL, could someone please help me....

What would be displayed by the Perl statements shown below if you were to type the following list of words, each separated by a return keypress, on input? <STDIN> = dog, cat, dog, turtle, cat, dog, end

print "Insert words to count: "
$line = <STDIN>;
while ($line !~ m/^ENDS/i) {
while ($line =~ a/(\w+) (.*)/$2/) {
$word = $1;
$wordHash{$word}++;
}
print "Insert words to count: ";
$line = <STDIN>;
}
print "\nWord counts: \n";
while ( ($word, $count) = each(%wordHash)) {
@wordArray[$1] = $word\t\t$count";
$i++;
print ("@wordArray\n");
}

I would like to understand how this works, I am really lost, any help would be surely appreciated. Thanks

[GunnarH]

I know that this is an easy peasy question, but I am a beginner at PERL,

How can you tell it's easy if you are a beginner?

What would be displayed by the Perl statements shown below if you were to type the following list of words, each separated by a return keypress, on input? <STDIN> = dog, cat, dog, turtle, cat, dog, end

Nothing useful, since the code doesn't compile. Please make sure that your code compiles before posting.

[sree450]

hai

first you should chomp the input u r taking check the code and see it will work











venu..................