pbm de regex commençant par ! ou 2! ou 3!

Version imprimable

Voir 40 message(s) de cette discussion en une page

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

Code:

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.

Code:

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

19/06/2007, 16h34
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.
19/06/2007, 16h39
djibril

conceptuellement, j'aurais peut etre dans un premier temps splité car le caractere separateur est un /
19/06/2007, 17h12
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
19/06/2007, 18h19
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ï

Bonjour,
voila mon code actuellement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
$Phrase = "! *A0628/399 /07-05-15/09 H 20/N=3291/TYP=COM/CAT=SI/EVENT=MAL"; 
if($Phrase =~ m{\!+\s+
(\*\[\w\d]+)\/
(\d{3})\s+\/(\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=(.*)$}x )
 
{ 
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"; }

mais ça ne marche tjs pas et je ne vois pas ce que peut être la faute.
regardez si vous pouvez m'aider
Merci d'avance.

20/06/2007, 10h18
Arioch

Et qu'est-ce qui ne fonctionne pas ? Ton if ne renvoie pas vrai ?

elle ne m' envoit absolument rien
voila mon code amélioré mais qui marche tjs pas

Code:

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

20/06/2007, 10h35
Arioch

Le meilleur moyen que je connaisse -si tu souhaites vraiment conserver cette regexp dans sa forme actuelle- est d'y aller progressivement.

Assures-toi d'abord que ce que tu es censé récupérer via $3 pour ta variable $date soit correct. Puis, rallonge ta Regexp pour prendre en compte ce que tu dois récupérer pour $heure, et ainsi de suite.

Ca marche à tous les coups !

voila j'ai réessayé j'ai amélioré ma regex
mais sans résultat.
voila le dernière version

Code:

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

Citation:

Envoyé par mariafan

voila j'ai réessayé j'ai amélioré ma regex
mais sans résultat.
voila le dernière version

Code:

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

As-tu essayé de procéder comme je te le préconise juste au-dessus ?

20/06/2007, 10h58
mariafan

je crois que j'ai fais exactement comme tu me l'as préconisé.:(
20/06/2007, 11h05
Arioch
Citation:

Envoyé par mariafan

je crois que j'ai fais exactement comme tu me l'as préconisé.:(

Est-ce que ceci fonctionne déjà pour commencer ?
Code:

1 2 3 4 if($Phrase2 =~ m{^\!+.+\/(\d{2}\-\d{2}\-\d{2})\/(\d{2}).+}x$/ ) { print "date = $1"; }
Si oui, rallonge ta regexp pour voir si elle capture l'élement suivant et ainsi de suite jusqu'à le formuler intégralement.
20/06/2007, 11h12
Arioch
Je suis reparti de ton exemple et me suis concocté une regexp perso pour tenter de récupérer la date et l'heure.

J'ai commencé ma regexp en recherchant juste la date. Puis, après m'être assuré que la date était bien trouvée, je me suis penché sur l'heure. Ca fonctionne également.

Je pourrais poursuivre jusqu'à récupérer tout ce que tu souhaites mais je te laisse le soin de faire. Va y étape par étape, pas tout d'un coup.
Code:

1 2 3 4 5 if ($Phrase2 =~ /^!.+\/(\d{2}\-\d{2}\-\d{2})\/(\d{2}) H (\d{2})/) { print "date trouvée = $1\n"; print "heure trouvée = $2:$3\n"; }

j'ai fais pareil
j'ai deux regex à faire et elles se ressemblent.
avec la première ça marche alors que avec la deuxième NON je crois que c'est due au caractère '!' qui un peu spéciale voila mon code

Code:

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
$Phrase = "*   #F3011/T13F01/NCEN=CB01  /07-05-15/08 H 27/NOM=OFFML"; 
if($Phrase =~ m{^\*\s+\#([\w\d]+)\/([\w\d]+)\/NCEN=([\w\d]+)\s+\/(\d{2}\-\d{2}\-\d{2})
				\/(\d{2})\s+\w{1}\s+(\d{2})\/NOM=(.*)
				$}x )    
{ 
my $ct = $3; 
my $date = $4; 
my $heure = $5.':'.$6; 
my $nom = $7; 
 
print 'ct: '.$ct."\n"; 
print 'date: '.$date."\n"; 
print 'heure: '.$heure."\n"; 
print 'nom: '.$nom."\n"; 
 }
 
$Phrase2 = "! *A0628/399 /07-05-15/09 H 20/N=3291/TYP=COM/CAT=SI/EVENT=MAL"; 
if($Phrase2 =~ m{^\!+\s+\*([\w\d]+)\/([\w\d]+)\s+\/(\d{2}\-\d{2}\-\d{2})\/(\d{2})\s+\W{1}\s+(\d{2})\/N=([\w\d]+)\/TYP=([\w\d]+)\/CAT=([\w\d]+)\/EVENT=(.*)$}x )    
{ 
 
my $date = $3; 
my $heure = $4.':'.$5; 
my $nom = $6; 
my $typ = $7; 
my $cat = $8; 
 
print 'cat: '.$cat."\n"; 
print 'date: '.$date."\n"; 
print 'heure: '.$heure."\n"; 
print 'nom: '.$nom."\n";
print 'typ: '.$typ."\n";  
 }

et l'exéctuion me donne justement les valeurs recherchés dans la 1 phrase pour la 2ième rien.
vous pouvez me montrez où j'ai pas bien fais

Citation:

Envoyé par mariafan

Code:

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
$Phrase = "*   #F3011/T13F01/NCEN=CB01  /07-05-15/08 H 27/NOM=OFFML"; 
if($Phrase =~ m{^\*\s+\#([\w\d]+)\/([\w\d]+)\/NCEN=([\w\d]+)\s+\/(\d{2}\-\d{2}\-\d{2})
				\/(\d{2})\s+\w{1}\s+(\d{2})\/NOM=(.*)
				$}x )    
{ 
my $ct = $3; 
my $date = $4; 
my $heure = $5.':'.$6; 
my $nom = $7; 
 
print 'ct: '.$ct."\n"; 
print 'date: '.$date."\n"; 
print 'heure: '.$heure."\n"; 
print 'nom: '.$nom."\n"; 
 }
 
$Phrase2 = "! *A0628/399 /07-05-15/09 H 20/N=3291/TYP=COM/CAT=SI/EVENT=MAL"; 
if($Phrase2 =~ m{^\!+\s+\*([\w\d]+)\/([\w\d]+)\s+\/(\d{2}\-\d{2}\-\d{2})\/(\d{2})\s+\W{1}\s+(\d{2})\/N=([\w\d]+)\/TYP=([\w\d]+)\/CAT=([\w\d]+)\/EVENT=(.*)$}x )    
{ 
 
my $date = $3; 
my $heure = $4.':'.$5; 
my $nom = $6; 
my $typ = $7; 
my $cat = $8; 
 
print 'cat: '.$cat."\n"; 
print 'date: '.$date."\n"; 
print 'heure: '.$heure."\n"; 
print 'nom: '.$nom."\n";
print 'typ: '.$typ."\n";  
 }

et l'exéctuion me donne justement les valeurs recherchés dans la 1 phrase pour la 2ième rien.
vous pouvez me montrez où j'ai pas bien fais

Pour cette exemple là, voici une regexp qui fonctionne (à affiner selon tes besoins) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if ($Phrase =~ /^\*.+\/NCEN=(\w+\d+).+\/(\d+\-\d+\-\d+)\/(\d+.+\d+)\/NOM=(.+)$/)
{
    my $ct = $1;
    my $date = $2;
    my $heure = $3;
    my $nom = $4;
    $heure =~ s/ +H +/:/;
 
 
 
    print "$ct\n";
    print "$date\n";
    print "$heure\n";
    print "$nom\n";
}

Produit en sortie :

Code:

1
2
3
4
CB01
07-05-15
08:27
OFFML

20/06/2007, 12h25
mariafan

comme je l'ai expliquer pour la première regex c-a-d celle que t'as refait ça marche, je suis arrivé c'étais bon(si je l'ai montré si pour vous montrez que ça marché pour la 1 phrase pas la 2ième)
mais le problème réside dans la 2ième phrase

Code:

$Phrase2 = "! *A0628/399 /07-05-15/09 H 20/N=3291/TYP=COM/CAT=SI/EVENT=MAL";

j'ai un pbm avec le caractère '!' car des fois on trouve '!!' ou meme'!!!'
est ce que vous pouvez voir pourquoi ça marche pas
20/06/2007, 12h32
Arioch

Citation:

Envoyé par mariafan

comme je l'ai expliquer pour la première regex c-a-d celle que t'as refait ça marche, je suis arrivé c'étais bon(si je l'ai montré si pour vous montrez que ça marché pour la 1 phrase pas la 2ième)
mais le problème réside dans la 2ième phrase

Code:

$Phrase2 = "! *A0628/399 /07-05-15/09 H 20/N=3291/TYP=COM/CAT=SI/EVENT=MAL";

j'ai un pbm avec le caractère '!' car des fois on trouve '!!' ou meme'!!!'
est ce que vous pouvez voir pourquoi ça marche pas

Pour tenir compte d'une chaîne commençant par 1 ou plusieurs caractères "!", le début de ta regexp devrait ressembler à ceci :

Code:

if ($Phrase2 =~ /^!+/

voila j'ai essayé avec mais sans résultats

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
$Phrase = "! *A0628/399 /07-05-15/09 H 20/N=3291/TYP=COM/CAT=SI/EVENT=MAL"; 
if($Phrase =~ m{\!+/\s+
(\*\[\w\d]+)\/
(\d{3})\s+\/(\d{2}\-\d{2}\-\d{2})\/(\d{2})\s+\w{1}\s+(\d{2})\/N=(\d{4})\/TYP=(\W{3})\/CAT=(\W{2})\/EVENT=(.*)$}x )
 
{ 
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"; }

Merci de votre aide

Voir 40 message(s) de cette discussion en une page