Bonjour,
j'ai un pbm,si je comprend bien mon code puisque je suis débutant, avec une regex normalement pour moi ça dois marcher voila mon code si vous voyez la faute
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
$Phrase = "AFCT = 068-083-01 ETAT = NENG+BLOJ"; 
if($Phrase =~ /
			  \s*AFCT\s*=\s*(\d{3}\-\d{3}\-\d{2})
			  \s*ETAT\s*=\s*(\w{4}\+\w{4})
			  $/)      
{  
			my $AFCT = $1;
			my $ETAT = $2;
print 'afct: '.$AFCT."\n"; 
print 'etat: '.$ETAT."\n"; 
 
  } 
$Phrase2 = "NATC = CSM7   TYC = JML10E07   NFSC = TOL2M"; 
if($Phrase2 =~ /
			   \s*NATC\s*=(\w{3}\d{1})
			   \s*TYC\s*=\s*(\w{3}\d{2}\w{2}\d{1})
			   \s*NFSC\s*=\s*(\w{3}\d{1}\w{1})
			   $/) 
{  
			my $NATC= $1;
			my $TYC = $2;
			my $NFSC = $3;
print 'NATC: '.$NATC."\n"; 
print 'TYC :'.$TYC."\n"; 
print 'NFSC: '.$NFSC."\n";
 }   
$Phrase3 = "PS =03160   CIC=00449   TYR=RN"; 
if($Phrase3 =~ /
			   \s*PS\s*=(\w{5})
			   \s*CIC\s*=\s*(\w{6})
			   \s*TYR\s*=\s*(\w{2})
			   $/) 
{
			my $PS= $1;
			my $CIC = $2;
			my $TYR = $3;
print 'PS: '.$PS."\n"; 
print 'CIC :'.$CIC."\n"; 
print 'TYR: '.$TYR."\n";
  }
merci beaucoup de votre aide.