Mega Code Archive

 

Categories / Perl / Regular Expression

 

Using tr to count the occurrences of specific characters

#!/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");