extraction nombre from chaine caractere

Salut,

Je dois récupérer un nombre dans un nom de fichier que je passe en paramètre d'un script perl. J'ai essayé de trafiquer un peu avec des expressions régulìeres mais je n'y arrive pas.

Une fonction comme substr n'est pas adaptée car le nombre peu être composé de 1, 2 ou 3 chiffres. Le nombre se trouve au début du nom du fichier.

Le format du nom de fichier et le nombre que je dois récupérer sont ainsi:

Citation:

---

1_900_123456.in --> 1
01_900_123456.out --> 01
001_900_123456.log --> 001

---

Pourriez-vous m'aider pour trouver l¡expression qui me permette de faire ca.

Merci par avance

Mat

si on dit "un à trois chiffres en début de nom, suivis d'un underscore", ça donne par exemple :

Code:

---

1 2 3 4

my $nombre ; if ($nomfichier =~ m/^(\d{1,3})_/) { $nombre = $1 ; }

---

ou sinon il te suffit de considerer ta chaine comme un nombre, et perl prendra tout ce qui ressemble à un nombre au debuit de ta chaine :

Code:

---

1 2 3 4 5

my $str = "2_950fdv"; my $i = 0+$str; print $i;   > 2

---

Joli !

PS : même si on sort du cadre de la question, est-ce que Perl ne risquerait pas d'être trop malin avec des noms comme "25.3 trucmuche" ou "-55bidule" ?

merci, ca fonctionne a la perfection.
Je vais choisir la 2nde solution, comme mon nom de fichier est normalisé cela fonctionne à la perfection.

@++

Mat