Do Perl exercise 1 using a hash instead of an array. Include the source code of

Question

Do Perl exercise 1 using a hash instead of an array. Include the source code of your program in perl_assignment.txt.

code:

# perlex1.pl: count word lengths in english.sorted

#1 - Read each line from english.sorted
while( $word = <STDIN>)
{
   #2 - Get length of each word that we read
   $length = length($word); # Subtract 1 for included newline char
   #3 - Increment correct word length array element using $length
   $wordlength[$length]++; # @wordlength array created on the fly
}

# 4 - Print the word length array elements
print "Word length Occurrences ";

for ( my $i = 1; $i <= $#wordlength; $i++)
{
   if (not exists $wordlength[$i])
   {
       print"$i 0 ";
       continue;
   }
   else{
   print "$i $wordlength[$i] ";
   }

}

Explanation / Answer

The given code with HASH:-

while( $word = <STDIN>)
{
   $length = length($word)
   $wordlength{$length}++;
}

print "Word length Occurrences ";

foreach my $word ( keys %wordlength) {

print "$word $wordlength{$word} ";

}

Related Questions

Navigate

• Browse (All)
• Browse D
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.