Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Langage Perl moulinette ou pas ?

moulinette ou pas ?

1 réponse
Avatar
Fabrice L.
Bonsoir,

Je cherche à trouver des occurences dans un tableau par rapport à différents
paramètres.

Hormis lire le fichier autant de fois que j'ai de paramètre je ne sais trop
comment faire.

@tableau :

aaaaa
bbbbb
ccccc
ffffff
rrrrrr
rrrrrr
rrrrrr
tttttt
uuuuuu
etc...

et dans ce tableau je cherche le nombre d'occurence de rrrrrr de aaaaaa et
uuuuu

ma solution :

foreach (@tableau) {

$occurence1++ if ($_ =~ /rrrrrr/);
$occurence2++ if ($_ =~ /aaaaaa/);
etc...

}

y a t-il d'autres solutions ?

Merci d'avance

Fabrice
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Rue des Prairies
Fabrice L. wrote:
Bonsoir,

Je cherche à trouver des occurences dans un tableau par rapport à différents
paramètres.

Hormis lire le fichier autant de fois que j'ai de paramètre je ne sais trop
comment faire.

@tableau :

aaaaa
bbbbb
ccccc
ffffff
rrrrrr
rrrrrr
rrrrrr
tttttt
uuuuuu
etc...

et dans ce tableau je cherche le nombre d'occurence de rrrrrr de aaaaaa et
uuuuu

ma solution :

foreach (@tableau) {

$occurence1++ if ($_ =~ /rrrrrr/);
$occurence2++ if ($_ =~ /aaaaaa/);
etc...

}

y a t-il d'autres solutions ?

Merci d'avance

Fabrice




Bonjour,


@tableau = qw (aaaaa bbbbb ccccc ffffff rrrrrr rrrrrr rrrrrr tttttt
uuuuuu );
@par = qw(bbbbb ccccc ffffff rrrrrr );

%occ = map{$_,++$occ{$_}} @tableau;
print map{$_,"=",$occ{$_},"n"}@par;

Olivier.