Discussion :

[Premium]

Bonsoir,

je souhaite récupérer les chiffres contenus dans une chaine de caractere.
Voici ce que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
#!usr/bin/perl
 
use strict;
 
my $id = "V3SF001253553A";
if($id =~ s/SF([0-9]*)/$1/g)
{
	print $id;
}

avec la chaine de caractere que j'ai mis, j'aurai cru que l'expression réguliere analysée serait SF001253553 et donc que $1 contiendrait 001253553 mais ce n'est pas le cas. Comment faire pour que le print m'affiche 001253553

Merci

[Jasmine80]

Code :

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

1
2
3
4
5
my $id = "V3SF001253553A";
if($id =~ s/SF([0-9]*)/$1/g)
{
	print $id;
}

Tu recherches les chiffres suivant SF mais SF([0-9]*) ne tient pas compte de ce qui précède SF ni de ce qui suit les chiffres. Une fois le motif SF(chiffres) trouvé, tu ne gardes que (chiffres) ... mais il te reste les 2 extrémités de ta chaine également.

Tu dois donc trouver le motif qui englobe l'entièreté de $id du début (^) à la fin ($). \d+ équivaut à [0-9]+ et \w+ à [a-zA-Z0-9]+

Code :

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

1
2
3
4
5
6
 
my $id = "V3SF001253553A";
if($id =~ s/^\w+SF(\d+)[a-z]*$/$1/gi)
{
	print $id;
}

Est-ce clair? N'hésite pas à poser des questions.