# No.34 Perl Sample (code key - 37)
# Learning Perl: Count words 1 （単語数を数える）
# Tomonori Nagano <tnagano@gc.cuny.edu>
# Last Update: January 18, 2008
#
# This file is encoded in Unicode (UTF-8). If you see gibberish characters, 
# please re-encode the file in utf-8. 
# 

# this sample script is simplified for pedagogical purposes. Those who are
# interested in advanced Perl programming are encouraged to consult with 
# relevant sections of "Perl Cookbook" by Christiansen & Torkington

my $numWords= 0 ;				# define the global variables

while(<>){						# this reads the default file line by line
	my @words = split ;			# split $_ into each word; alternatively use split (" ",$_) 
	$numWords += $#words + 1 ;	# the last index of an array is the number of elements - 1 
}

print "numWords\t$numWords\n" ;