Discussion :

[mariafan]

Bonjour,
je bloque dans une regex que je sais comment s'y prendre/

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
$Phrase = "!   *A0628/399 /07-05-15/09 H 20/N=3291/TYP=COM/CAT=SI/EVENT=MAL"; 
if($Phrase =~ /\!\s+\*(\w{1}\d{4})\/(\d{3})\/(\d{2}\-\d{2}\-\d{2})\/(\d{2})\s+\w{1}\s+(\d{2})\s+\w{2}\s+(\d{2})\/N=(\d{4})\/TYP=(\w{3})\/CAT=(\w{2})\/EVENT=(.*)$/ )
{  
			my $date = $3;
			my $heure = $4.':'.$5.':'.$6;
			my $ndl = $7;
			my $typ =$8;
			my $cat = $9;			
print 'date: '.$date."\n"; 
print 'heure: '.$heure."\n"; 
print 'ndl: '.$ndl."\n"; 
print 'typ: '.$typ."\n"; 
print 'cat: '.$cat."\n"; 
  }

et à la place de '!' des fois il y a '!!' ou même '!!!'
pouvez vous m'aider à régler ce pbm.
Merci d'avance de votre aide.

[djibril]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
$Phrase = "!   *A0628/399 /07-05-15/09 H 20/N=3291/TYP=COM/CAT=SI/EVENT=MAL"; 
if($Phrase =~ /\!+\s+\*(\w{1}\d{4})\/(\d{3})\/(\d{2}\-\d{2}\-\d{2})\/(\d{2})\s+\w{1}\s+(\d{2})\s+\w{2}\s+(\d{2})\/N=(\d{4})\/TYP=(\w{3})\/CAT=(\w{2})\/EVENT=(.*)$/ )
{  
			my $date = $3;
			my $heure = $4.':'.$5.':'.$6;
			my $ndl = $7;
			my $typ =$8;
			my $cat = $9;			
print 'date: '.$date."\n"; 
print 'heure: '.$heure."\n"; 
print 'ndl: '.$ndl."\n"; 
print 'typ: '.$typ."\n"; 
print 'cat: '.$cat."\n"; 
  }

tu ajoute un + à coté de ton "!"

[mariafan]

j'ai essayé avec ça n'a pas marcher.
peut être '!' est un caractère spéciale qu'il faut traiter autrement??
auriez vous une autre idée.

[djibril]

conceptuellement, j'aurais peut etre dans un premier temps splité car le caractere separateur est un /

[mariafan]

j'ai pas bien compris ce que vous voulez dire.
je ne suis qu'un débutant.
pouvez vous aussi revoir ma regex, il se peut que j'ai fais une faute.
merci de votre aide

[Jedai]

Tu as oublié un \s+ après le premier \d{3}... Mais vu la taille de cette regex, il serait peut-être effectivement préférable de découper le processus en plusieurs étape, ou au moins d'utiliser le modificateur /x.

--
Jedaï