Script PERL et expressions rationnelles

Citation:

Envoyé par specialfox

Cette ligne est de cette forme : Number of addresses: 3054

Comment faire avec PERL pour ne récupérer que les chiffres, c'est à dire dans notre exemple 3054.

Salut à toi !

Je me souviens, les expressions rationnelles, quelle misère c'est au début. En pratiquant tu verras ça coulera tout seul. En attendant voilà quelque chose qui devrait fonctionner :
Code:

1 2 3 4 5 6 7 8 9 #!/usr/bin/perl use strict; use warnings; my $ligneDuFichier = "Number of adress: 3054"; if($ligneDuFichier =~ /[\w\s]*:\s*(\d+)/){ print "$1";}
Laisse moi expliquer l'expression.

\w => Ceci permet d'identifier un mot
\s => Cet opérateur ci signifie un espace (n'importe quel type d'espace, une tabulation est un espace
\d => Identifie un chiffre entre 0 et 9
----------
* => Cet opérateur ci permet de dire "0 ou plusieurs fois"
+ => Permet de dire "1 ou plusieurs fois"

Une expression rationnelle se définie à l'intérieur de /ICI L'EXPRESSION/.

En premier lieu j'ai placé [\w\s]*, cela signifie un mot -\w- suivit d'un espace -\s-, je les ai ensuite placé entre crochets afin d'en faire un groupe.
J'ai rajouté le caractère * à la suite afin de signifier que ce groupe se répète une ou plusieurs fois.

Les : sont dans ton exemple, j'ai donc supposé que toutes tes lignes possédaient ce séparateur entre phrase et chiffres (si ce n'est pas le cas, remplace le par : . -Signifie n'importe quel caractère-)

Ensuite j'ai fait en sorte de récupérer ton nombre. Pour cela j'ai écrit : \s*(\d+). \s* au cas ou il y ait un espace placé avant le nombre (note le * qui signifie 0 ou plusieurs fois) et pour finir, la partie qui t'interesse réellement :

(\d+), les parenthèses servent, dans les expressions rationnelles à récupérer dans des variables prédéfinies par le langage ($1, $2, $3 etc... en PERL) ce qui est placé entre elles.
Ainsi ce bout d'expression signifie que tu va placer dans la variable $1 les chiffres.
Le + suivant le \d est important car \d ne récupère qu'un chiffre, grâce au + tu les récupère tous.

Je te donne un lien assez complet sur le sujet des expressions rationnelles qui pourras t'aider :

http://perl.enstimac.fr/DocFr/perlretut.html

Je ne dit pas que cette expression est la plus performante mais après 2-3 tests elle fonctionne, si tu as des soucis n'hésite pas.

En espérant que ma réponse te convienne et Bonne chance !