Discussion :

[Matmal11]

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:

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

[Antoun]

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

Code :

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

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

[pospos]

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 :

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

1
2
3
4
5
my $str = "2_950fdv";
my $i = 0+$str;
print $i;
 
> 2

[Antoun]

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

[Matmal11]

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

@++

Mat