|
#!/usr/local/bin/perl
$punctuation = $blanks = $total = 0;
while ($input = <STDIN>) {
chop ($input);
$total += length($input);
$_ = $input;
$punctuation += tr/,:;.-/,:;.-/;
$blanks += tr/ / /;
}
print ("In this file, there are:\n");
print ("\t$punctuation punctuation characters,\n");
print ("\t$blanks blank characters,\n");
print ("\t", $total - $punctuation - $blanks);
print (" other characters.\n");
|