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.