Discussion :

[specialfox]

Bonjour,

je suis débutant en PERL et je coince avec les expressions rationnelles.

Voila mon souci, je récupère via une variable une ligne sur laquelle je ne veux récupérer que les chiffres.

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.

D'avance merci pour votre aide.

[Quantactique]

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 :

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

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 !