Shell Programming and Scripting

file = essay

# Nothing has been seen
%seen = ();

# read words from input
while (<$file>)
{
	while ( /(\w['\w-]*)/g)
	{
		# Increment the counter
		$seen{lc $1}++;
	}
}

# output hash in a 
foreach $word (sort {  } keys %seen)
{
	print "$word found $seen{$word} times on pages $page\n";
}

file = essay ## it should be $file

# Nothing has been seen
%seen = ();

# read words from input 

# where did you open the file ??

while (<$file>)
{
        ### Missing chomp 
	while ( /(\w['\w-]*)/g)
	{
		# Increment the counter
		$seen{lc $1}++;  
	}
}

# output hash in a 
foreach $word (sort {  } keys %seen)
{
	print "$word found $seen{$word} times on pages $page\n";
}

#! /usr/bin/perl

my $file = $ARGV[0] ;
my @LineArray = () ;
my %WordHash = () ;

open(ESSAY,"$file") or die "can not open file for reading : $!\n" ;
while(<ESSAY>)
{
   chomp ;
   @LineArray = split (/ \s*/,$_ ) ;
   foreach my $word ( @LineArray )
   {
      $word = lc $word ;
      $WordHash{$word}++ ;
   }
}

foreach my $word ( sort keys %WordHash )
{
   print "$word\t$WordHash{$word}\n" ;
}