count characters in a string

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Perl section within the Software Development category of DaniWeb, a massive community of 426,256 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,071 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Perl advertiser: Programming Forums

count characters in a string

•

Join Date: Oct 2007

Posts: 41

Reputation: mank is an unknown quantity at this point

Rep Power: 1

Solved Threads: 0

mank

Offline

Light Poster

count characters in a string

Mar 18th, 2008

This code counts number of characters in a single line
how can I make it count(give total X Y Z) it in multiple lines seperated by ">"

Help with Code Tags

(Toggle Plain Text)

while(<IN>) {
  chomp;
  my @line = split(//, $_);  
  if($line[0] eq ">"){print @line;}
          elsif (($line[0] eq "X"||"Y"||"Z")||($line[0] ne ">"))
                        {
                my %cnter;
                         foreach my $gc (@line) 
                             {$cnter{$gc} ++;}

                      print join(" ", @cnter{qw(X Y Z)}), "\n";

                        }


                }

close(IN);
exit;