[PERL/regexp] récupérer les 4 premiers chiffres d'une chaine

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:

---

1 2 3

$chaine1="ordfre1234sk521sdksj"; $chaine2="sd1234ksjkd596";

---

je voudrais récupérer

Code:

---

1 2

1234

---

Voilà !!

Merci beaucoup pour vos suggestions.

Bonne aprem.

que nous suggeres tu :lol: en premier? :wink:

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

Code:

---

1 2 3 4 5 6

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

---

:oops: :oops: :oops:

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

Code:

---

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à

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 ??

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

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

Bonne après-midi !!

Code:

---

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

---

Voilou

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/