Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. A word-count program that handles multiple spaces and tabs between words
#!/usr/local/bin/perl 
$wordcount = 0; 
$line = ; 
while ($line ne "") { 
   chop ($line); 
   @words = split(/[\t ]+/, $line); 
   $wordcount += @words; 
   $line = ; 
} 
print ("Total number of words: $wordcount\n");