edenc/replace.pl

Created March 29, 2013 02:10

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/edenc/5268276.js"></script>
Save edenc/5268276 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

 use warnings;
 use strict;
 $^I = '';
 my %count;
 my @chars = qw(B);
 while(<>) {
   for my $char (@chars) {
     my @count = /($char)/g;
     $count{$char} += @count;
     s/$char//g;
   }
   print;
 }
 $^I = undef;
 for my $char (@chars) {
   print "$char: $count{$char}\n";
 }

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment