Discussion :

[Cyanatide]

Bonjour.
J'ai un petit problème: j'ai fais un script perl qui parcourt un fichier de log et qui me remonte une liste de numéro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
while (<FILEH>) {
	if( $_ =~ /Called Party Number i = 0xA1/)
	{
		@res=split(/'/ , $_);
		$nb_called = $res[1];
	}
}

mon nb_called peut être différent à chaque fois que la condition est vrai. Et au final, je voudrais compter le nombre de chacune des valeurs différentes qui me sont retournés par cette condition.
Par exemple:
9106: 15 fois
9845: 2 fois
...

Comment puis je faire? (je débute, n'hésitez pas à détailler!

[Deneteth]

Sur le principe, personnellement j'utiliserai un hash.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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....