A simple word-count program. : Split « String « Perl






  1. Perl
  2. String
  3. Split

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");








Related examples in the same category

1.Split string into separate words, and then test to see if each word is the one we're looking for.
2.Split up
3.Split words
4.Using split function to split a string
5.Split string with ','
6.Find a word after splitting a string
7.Keeping the separators by having them in parentheses.