Count Occurances of string in an array or text file

[jess916]

I have a list of strings that are being extracted by pattern matching. I would like to count the number of times any particular string is repeated. I have no idea whether I should store the strings to an array or print to a text file. Any ideas?

Sample Data
pad1
sigA_1[1]
input
pad2
sigB
output
pad1
sigA_1[2]
input... so the output would be sigA 2 and sigB 1

 

[KevinADC]

use a hash:

my %count = ();
while(<>){
   if (/(sig[AB])/) {
      $count{$1}++;
   }
}
foreach $key (keys %hash) {
   print "$key = $count{$key}\n";
}

------------------------------------------
- Kevin, perl coder unexceptional!

 

[jess916]

Thanks Kevin. Sorry for not being more specific but I need the code to count the number of signals without specifying the signal name. In other words I have a hash and the code would count the instances were a signal is repeated without knowing a specific signal to look for. Is this possible?

 

[KevinADC]

Well there has to be something to search for, assuming it is "sig" followed by an uppercase letter(s), maybe:

my %count = ();
while(<>){
   if (/(sig[A-Z]+)/) {
      $count{$1}++;
   }
}
foreach $key (keys %hash) {
   print "$key = $count{$key}\n";
}

If not then you need to define the requirements in a way that can be understood.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Kirsle]

   }
}
[red]- foreach $key (keys %hash) {[/red]
[blue]+ foreach $key (keys %count) {[/blue]
   print "$key = $count{$key}\n";
}

-------------
Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[KevinADC]

oops.... thanks Kirsle

my %count = ();
while(<>){
   if (/(sig[A-Z]+)/) {
      $count{$1}++;
   }
}
foreach $key (keys %count) {
   print "$key = $count{$key}\n";
}

------------------------------------------
- Kevin, perl coder unexceptional!