Probleme parser Perl

voila j'ai un fichier texte, avec beaucoup de donnée du style:

aaa=xxx ,veze=xxx , rezfsd= xxx

et je désirerais récupérer la valeur qui se trouve après le triple A.
Si la valeur etait statique cela ne me poserait pas de problème mais dans mon cas la valeur est dynamique et donc le nombre de chiffre peux varier.
l'idee serai donc de prendre l'interval entre le = et la ,
mais je ne sais vraiment pas comment faire.
j'espere que quelqu'un saura m'aider.
merci d'avance :)

Avec une expression régulière :

Code:

---

1 2 3 4 5

my $s = "aaa=xxx ,veze=xxx , rezfsd= xxx"; $s =~/^a{3}=(\d+)/; my $val = $1; print $val, "\n";

---

tu saurais m'expliquer les étapes svp parce que je comprend pas le code

Oui bien sûr :

Code:

---

1 2 3 4 5

my $s = "aaa=xxx ,veze=xxx , rezfsd= xxx"; $s =~/^a{3}=(\d+)/; #1 my $val = $1; #2 print $val, "\n";

---

On matche la chaîne $s avec l'expression régulière /^a{3}=(\d+)/ qui se traduit par : une chaîne qui commence par trois 'a' ( le "a{3}") puis '=' et ensuite un nombre d'au moins un chiffre (représenté par \d+).
Les parenthèses autour de \d+ permettent de signaler que l'on veut récupérer cette partie de la chaîne.

#2 On récupère la partie voulue (les parenthèses de l'expression régulière) qui a été automatiquement stockée dans une variable $1.

A titre d'information, et pour éviter tout effet de bord liés à la variable automatique $1 (qui pourrait arriver en introduisant des instructions entre l'exécution de la regexp, et l'exploitation de $1), il est possible d'affecter directement le résultat des parenthèses capturantes d'une expression régulière dans une liste de variables :

Code:

---

my ($val) = $s =~/^a{3}=(\d+)/;

---

(les parenthèses autour de $val ont une importance capitale : elles fournissent à l'opérateur =, et donc à l'opérateur =~, un contexte de liste qui permet que soient retournés les valeurs capturée, au lieu du nombre de valeurs capturées).