Discussion :

[LE NEINDRE]

Bonjour à tous,

Je sais que c'est possible en perl mais je ne sais pas comment faire.
Je voudrais récupérer les 4 premiers chiffres d'une chaîne de caractères.

Ex: pour chaque chaine ci-dessous:

Code :

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

1
2
3
 
$chaine1="ordfre1234sk521sdksj";
$chaine2="sd1234ksjkd596";

je voudrais récupérer

Code :

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

1
2
 
1234

Voilà !!

Merci beaucoup pour vos suggestions.

Bonne aprem.

[djibril]

que nous suggeres tu en premier?

[LE NEINDRE]

Ma première suggestion, (mais je sais qu'elle n'est pas la bonne) serait de faire comme ça:

Code :

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

1
2
3
4
5
6
 
$chaine="ddfkjdf1234dfdf5214";
$chaine=~s/[^0-9]//g;
$res=substr($chaine,0,4);
 
print "$res";

[djibril]

voici un code à l'arrache, faudra verifier la syntaxe car j'ai pas perl ou je suis.

Code :

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

1
2
3
4
5
6
7
my $recup;
my @tab = split ('', $chaine);
foreach my $lettre (@tab) {
 if ($lettre =~ /\d/) { my $recup .= $lettre;}
last if (scalar($recup) eq 4);
}
print $recup;

je suis sur qu'on peut faire plus court
voilà

[LE NEINDRE]

Merci pour ta réponse Djibril !

Au regard des articles que tu as écrit dans la faq perl sur les regexp, j'ai l'impression qu'il est possible de récupérer les 4 premiers chiffres en une ligne de code...

Crois tu que ce soit possible ??

[djibril]

oui c'est possible, faut juste plus reflechir, mais j'ai pas les yeux en face des trous
tout depends aussi de ta chaine de depart
Tu peux t'exercer à trouver la bonne regex
courage

[LE NEINDRE]

ok, merci !!
Je vais m'y pencher de plus prêt !!!

Bonne après-midi !!

[djibril]

Code :

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

1
2
$chaine =~ /(\d{4})/;
$ma_recup = $1;

Voilou

[LE NEINDRE]

Ahhh c'est super PERL !!!!!!!!!!!

Merci beaucoup pour ta clairvoyance !!!

Et grand merci pour les cours et tutoriels Perl c'est très utile : http://perl.developpez.com/cours/