Discussion :

[wulfeir]

Bonjour à tous

Voila je débute en perl et je ne suis pas encore tres à l'aise avec les ER essentiellement.

Dans l'immediat j'ai besoin de compter le nombre d'occurences d'une chaine 'ou=' et en fonction d'écrire l'enregistrement auquel appartient cette premiere ligne dans plusieurs fichiers differents (une sorte de tri disons).
J'ai donc écris la ligne suivante :

if ($line =~ /ou={3}/)
{
print FILE $line;
}

Je pensais donc que cet ER renverrai TRUE si on trouve exactement 3 'ou=' dans la chaine $line, mais je n'ai pas obtenu le résultat escompté. Dans ddd j'ai d'ailleurs pu constaté que cette condition n'est jamais vraie mais que la condition $line =~ /ou={1}/ est par contre toujours vraie quelque soit mon nombre d'occurence (compris entre 1 et 3). J'ai également essayé avec un compteur de remplacement d'occurences $line += s/ou=/ou=/ sans grand résultat non plus.

Je pense que sa vient de L'ER mais je peut me tromper...

Voila je pense que ce probleme est façile à resoudre, mais je dois bien avoué que malgré mes recherches sur le net et sur ce forum je seche quelque peu.

Wulf'.

[Gardyen]

ton expression ou={3} recherche la chaîne ou===, ça ne compte pas les occurrences.

pour savoir combien de fois tu retrouves ton pattern tu dois
- matcher sur la globalité de ta chaîne en utilisant l'option g
- récupérer la liste et compter le nombre de matchs !

voici un petit exemple:

Code :

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

1
2
3
4
5
 
my $string = "re: as asm asdou=asdtrasou=r";
my @list = $string =~ /ou=/g;
my $nombre_d_occurrence = scalar @list;
print "la chaîne ou= est retrouvée $nombre_d_occurrence fois";

[wulfeir]

Ok je vois la différence, j'avais pas compris l'ER {} comme ça en fait...

Du coup avec ta manip' je comprend et ça marche beaucoup mieux. J'aurais finalement pas à trier mon fichier de 300 000 lignes à la mimine

Merci beaucoup pour cette explication claire et concise,

Wulf'.

[djibril]

pense à faire @list=(); par la suite car il utilisera de la memoire inutilement

[Jedai]

Une petite astuce, pour éviter d'en passer par une liste intermédiaire inutile :

Code :

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

1
2
3
my $string = "re: as asm asdou=asdtrasou=r";
my $nombre_d_occurrence =()= ($string =~ /ou=/g);
print "la chaîne ou= est retrouvée $nombre_d_occurrence fois";

En gros "() =" force la regexp en contexte de liste, donc elle renvoie théoriquement la liste que tu avais placé dans @list dans le code précédent, puis "$nombre_d_occurence =" force ce tableau en contexte scalaire, donc récupère le nombre d'éléments de la liste.
En réalité, au moins dans les Perl récents, la liste ne sera jamais construite et on comptera directement le nombre de match, ce sera donc plus efficace.
"=()=" est donc un pseudo-opérateur en Perl qui te permettra de compter le nombre d'éléments renvoyés par une fonction ou un match.

--
Jedaï