程嶏清单4-3.txt

< linux网络编程工具>>配套源码

# This program finds the Capitalized words
while ($inputline = ) {
   while ($inputline =~ /\b[A-Z]\S+/g) {
     $word = $&;
     $word =~ s/[;.,:-]$//; # remove punctuation
     $wordlist{$word} += 1;
   }
}
print ("Capitalized words and number of occurrences:\n");
foreach $capword (keys(%wordlist)) {
   print ("$capword: $wordlist{$capword}\n");
}