Discussion :

[ronidev]

bonjour,

Je dois récuperer les numero de serie mvXXX.dc et nvXXX.dc ; c'est a dire /([mn]v)[0-9]+(.dc)/ dans un fichier temporaire dans lesquel le contenu est composer de plusieurs caractere lier avec et sans espace, n'est pas ordonner et change à chaque fois.

Je n'arrive pas à trouver la bonne methode pour commencer.

Si quelqu'un pouvait donner des renseignement pour me guider svp

merci d'avance !

[Jasmine80]

Tu dois rajouter un backslash devant le point afin qu'il soit considéré comme un point. Le point seul, signifie n'importe quel caractère. Ce que tu places entre parenthèses est ce que tu vas récupérer. Si tu veux l'entièreté du numéro, tu dois encadrer l'entièreté de ton expression

Code :

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

1
2
3
if ($ligne =~ /([mn]v\d{3}\.dc)/){
     my $numero = $1;
}

\d équivaut à [0-9] et {3} signifie trois fois un chiffre

Va voir sur la FAQ comment manipuler des fichiers
http://perl.developpez.com/faq/?page=sectionC1

[ronidev]

Tu dois rajouter un backslash devant le point afin qu'il soit considéré comme un point. Le point seul, signifie n'importe quel caractère. Ce que tu places entre parenthèses est ce que tu vas récupérer. Si tu veux l'entièreté du numéro, tu dois encadrer l'entièreté de ton expression

Code :

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

1
2
3
if ($ligne =~ /([mn]v\d{3}\.dc)/){
     my $numero = $1;
}

\d équivaut à [0-9] et {3} signifie trois fois un chiffre

Va voir sur la FAQ comment manipuler des fichiers
http://perl.developpez.com/faq/?page=sectionC1

Merci pour la reponse !

finalement je ne connais pas le nombre de chiffre exact j'ai mis un "+"
apres "d" pour dire au moins un chiffre

Code :

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

1
2
3
if ($ligne =~ /([mn]v\d+\.dc)/){
     my $numero = $1;
}

[ronidev]

bonjour,

Ce que j'ai pu faire ( pour le moment j'utilise STDIN ) mais je n'arrive pas faire ressortir tous les numero, si je tape plusieurs numero de serie il me sort que le premier qu'il trouve.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
#!C:/Perl/bin/perl.exe -w
 
use locale;
use strict;
 
print "Entrez un texte : ";
my $chaine = <STDIN>;
chomp $chaine;
 
 
if ($chaine =~ /([mn]v\d+\.dc)/){
     my $numero = $1 ;
 
my(@tab);
push (@tab, $1 );
print join(" ; ", @tab);
 
}
 
else {
    print "Votre texte ne contient pas de numero de serie \n";
}

par exemple si je tape : "---------mv1.dcntttttttnv35556666.dc--mv6.dcjkjp"
il me sort que mv1.dc alors que je veus aussi nv35556666.dc et mv6.dc.

si quelqu'un pouvait m'aider à resoudre le probleme

merci d'avance

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
my $chaine = "mv123.dc et nv4567.dc";
 
if ($chaine =~ /[mn]v\d+\.dc/){
     my @tab = ($chaine =~ /([mn]v\d+\.dc)/g);
 
    map {print $_." ; ";}@tab;
 
}
else {
    print "Votre texte ne contient pas de numero de serie \n";
}

affichage

mv123.dc ; nv4567.dc ;

=~ //g
le g permet une recherche globale et récupère donc toutes tes occurrences

[ronidev]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
my $chaine = "mv123.dc et nv4567.dc";
 
if ($chaine =~ /[mn]v\d+\.dc/){
     my @tab = ($chaine =~ /([mn]v\d+\.dc)/g);
 
    map {print $_." ; ";}@tab;
 
}
else {
    print "Votre texte ne contient pas de numero de serie \n";
}

affichage


=~ //g
le g permet une recherche globale et récupère donc toutes tes occurrences

Merci mille fois jasmine80 !!! ca marche