Compter le nombre de fois ou une variable apparait.

Sur le principe, personnellement j'utiliserai un hash.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use strict;
use warnings;
...
my %nb_called;
while (<FILEH>) 
{
	if( $_ =~ /Called Party Number i = 0xA1/)
	{
		my @res=split(/'/ , $_);
 
		if (exists $nb_called{$res[1]}) {$nb_called{$res[1]} += 1}
                else {$nb_called{$res[1]} = 1} #creation de l'entree si premiere fois
	}
}
 
foreach my $key (sort {$a <=> $b} (keys %nb_called))
{
       print "$key: $nb_called{$key} fois\n";
}
...

Sans présumer du resultat de la regexp et du split mais ils me paraissent bizarre. Avec un exemple du fichier ce serait mieux....