Mega Code Archive

 

Categories / Perl / String

 

A simple word-count program

#!/usr/local/bin/perl  $wordcount = 0;  $line = <STDIN>;  while ($line ne "") {      chop ($line);      @array = split(/ /, $line);      $wordcount += @array;      $line = <STDIN>;  }  print ("Total number of words: $wordcount\n");