Mega Code Archive

 

Categories / Perl / Statement

 

A word-counting program that uses the next statement

#!/usr/local/bin/perl  $total = 0;  while ($line = <STDIN>) {      $line =~ s/^[\t ]*//;      $line =~ s/[\t ]*\n$//;      next if ($line eq "");      @words = split(/[\t ]+/, $line);      $total += @words;  }  print ("The total number of words is $total\n");