#!/usr/bin/perl -w 
print "Welcome to the File Word Count program\n"; 
 
print "Enter the name of the file to open\n"; 
$inFileName = <STDIN>; 
$sum = 0; 
open (FILE, "<$inFileName") or die $!; 
 
for (1..40) 
{ 
        my $char = getc FILE;  
	print $char; 
	if ($char eq " ") 
	{ 
		$sum = $sum + 1; 
	} 
} 
print $sum."\n"; 
close (FILE) or die $!;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
# Copy input to STDOUT 
 
while( <> ){ 
  print; 
}

#!/usr/bin/perl -w 
print "Welcome to the File Word Count program\n"; 
 
print "Enter the name of the file to open\n"; 
chomp( $inFileName = <STDIN> ); 
 
$sum = 0; 
 
open (FILE, "<$inFileName") or die $!; 
 
while( my $line = <FILE> ) 
{ 
        my $char = getc FILE;  
	print $char; 
	if ($char eq " ") 
	{ 
		$sum = $sum + 1; 
	} 
} 
print $sum."\n"; 
close (FILE) or die $!;

[13818160@lab219-02 wk8]$ perl wordCount.pl 
Welcome to the File Word Count program 
Enter the name of the file to open 
words.pl 
Use of uninitialized value in print at wordCount.pl line 14, <FILE> line 1. 
Use of uninitialized value in string eq at wordCount.pl line 15, <FILE> line 1. 
0

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
my %Words = (); 
 
while( <> ){ 
  for my $word ( split /\s+/, $_ ){ 
    $Words{$word} ++; 
  } 
} 
 
for my $word ( sort keys %Words ){ 
  printf "%-20s %5d\n", $word, $Words{$word}; 
}

..... 
for my $word ( split /\s+/, $_ ){  
....

#!/usr/bin/perl 
 
use warnings; 
use strict; 
 
die "Filename not passed\n" unless @ARGV; 
 
chomp(my $inFileName = shift); 
 
# I'd need to do a benchmark test, but this is probably the most efficient. 
my $words = (split /\s+/, `wc $inFileName`)[2]; 
print "Words:$words\n"; 
 
# However, this one doesn't use an external utility. 
my $count; 
open my $FILE, '<', $inFileName or die "can't open '$inFileName' $!"; 
while ( <$FILE> ) { 
    $count++ for split; 
} 
print $count,$/;