pbm de regex

Version imprimable

pbm de regex

bonjour,
j'ai une regex de forme

Code:

1
2
3
4
 
0200 0706 2917 1840 0482 010A 0109 017D 0151 0000 0000 0000 
11AF 6100 040C 0000 0000 0151 1400 0206 0100 4000 0800 1820 
0237 00

et je voudrai la découper en partie pour donner à chaque partie une correspondance.
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
$msg = "0200 0706 2917 1840 0482 010A 0109 017D 0151 0000 0000 0000 
		11AF 6100 040C 0000 0000 0151 1400 0206 0100 4000 0800 1820 
		0237 00"; 
if($msg =~ m{^\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]2)([\w\d]2)\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]4)
\s+([\w\d]2)([\w\d]2)\s+([\w\d]2)([\w\d]2)\s+([\w\d]2)([\w\d]2)\s+([\w\d]2)([\w\d]2)\s+([\w\d]2)([\w\d]2)\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]2)([\w\d]2)\s+([\w\d]2)([\w\d]2)\s+([\w\d]4)\s+([\w\d]4)
\s+([\w\d]4)\s+([\w\d]2)$}x)
{  			
			my $jsp1 = $1;
			my $date = $2.$3;
			my $heure = $4.$5;
			my $jsp2 = $6;
			my $jsp3 = $7;
			my $jsp4 = $8.$9.$10.$11.$12.$13.$14;
			my $codm = $15.$16;
			my $tyr16 = $17.$18;
			my $rgca = $19;
			my $icmate = $20;
			my $icolog = $21;
			my $idmu = $22;
			my $idad = $23;
			my $asml = $24;
			my $inf = $25.$26;
			my $forme = $27;
			my $numano = $28.$29;
			my $diapr = $30;
			my $infcp = $31.$32.$33.$34;
 
print 'jsp1: '.$jsp1."\n"; 
 
			print $jsp1."\n";
			print $date."\n";
			print $heure."\n";
			print $jsp2."\n";
			print $jsp3."\n";
			print $jsp4."\n";
			print $codm."\n";
			print $tyr16."\n";
			print $rgca."\n";
			print $icmate."\n";
			print $icolog."\n";
			print $idmu."\n";
			print $idad."\n";
			print $asml."\n";
			print $inf."\n";
			print $forme."\n";
			print $numano."\n";
			print $diapr."\n";
			print $infcp."\n";
  }

je suis convaincu qu'il est bien, mais le pbm je n'ai ni de retour ni de message d'erreur.
merci de m'aider sur ce pbm.

04/07/2007, 09h03
Arioch

Bonjour,

comme je procède toujours dans le cas d'une expression régulière assez longue et qui ne matche pas, je la construis petit à petit en partant du début de la chaîne.

Vérifie déjà que tu peux récupérer le contenu de $jsp1, $date et $heure en modifiant ta regexp. Si c'est bon, modifie là à nouveau et teste si maintenant tu parviens à récupérer $jsp2, $jsp3 et $jsp4, et ainsi de suite jusqu'à la fin.

Maintenant, est-ce qu'un bête split de ta ligne en prenant l'espace comme séparateur n'aurait pas suffit ???

je trouve ton code vraiment illisible ainsi.
Pourquoi ne pas spliter ta chaine.
Code:

1 2 3 4 $msg = "0200 0706 2917 1840 0482 010A 0109 017D 0151 0000 0000 0000 11AF 6100 040C 0000 0000 0151 1400 0206 0100 4000 0800 1820 0237 00"; my @decoupage = split(/\s+/, $msg);
et apres, tu fais ce que tu veux avec chaque case de ton tableau.

mais le pbm c'est que je n'ai pas que les 4 caractères par 4 caractères à découper des fois il faut découper par deux caractère.
je crois que le problème viens du faite que je cherche à matcher un nombre de caractère connait mais des fois sont de digite et des fois sont des caractères.
par exemple
Code:

1 2 3 4 5 6 7 8 9 10 $msg = "0200 0706 2917 1840 0482 010A 0109 017D 0151 0000 0000 0000 11AF 6100 040C 0000 0000 0151 1400 0206 0100 4000 0800 1820 0237 00"; if($msg =~ m{^\s+([\w\d]4)\s+([\w\d]4)\s+([\w\d]2)([\w\d]2)\s+([\w\d]4)\s+(.*)$}x) { my $jsp1 = $1; my $date = $2.$3; my $heure = $4.$5; }
mais c le meme pbm pas d'erreur et pas de résultat
est ce que vous arriver à voir qqc svp aidez moi

04/07/2007, 11h52
Arioch

Sauf erreur, pour le nombre de caractères recherchés, tu dois mettre entre accolades

Donc, essaie ceci pour voir :

Code:

if($msg =~ m{^\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{4})\s+(.*)$}x)

J'ai corrigé ton code, les print fonctionnent.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
use strict;
use warnings;
 
my $msg = "0200 0706 2917 1840 0482 010A 0109 017D 0151 0000 0000 0000 11AF 6100 040C 0000 0000 0151 1400 0206 0100 4000 0800 1820 0237 00";
 
if($msg =~ m{^\s*([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4}) \s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{4})\s+([\w\d]{4}) \s+([\w\d]{4})\s+([\w\d]{2})$}x)
{ 
    my $jsp1 = $1; 
    my $date = $2.$3; 
    my $heure = $4.$5; 
    my $jsp2 = $6; 
    my $jsp3 = $7; 
    my $jsp4 = $8.$9.$10.$11.$12.$13.$14; 
    my $codm = $15.$16; 
    my $tyr16 = $17.$18; 
    my $rgca = $19; 
    my $icmate = $20; 
    my $icolog = $21; 
    my $idmu = $22; 
    my $idad = $23; 
    my $asml = $24; 
    my $inf = $25.$26; 
    my $forme = $27; 
    my $numano = $28.$29; 
    my $diapr = $30; 
    my $infcp = $31.$32.$33.$34; 
    print 'jsp1: '.$jsp1."\n";   
    print $jsp1."\n"; 
    print $date."\n"; 
    print $heure."\n"; 
    print $jsp2."\n"; 
    print $jsp3."\n"; 
    print $jsp4."\n"; 
    print $codm."\n"; 
    print $tyr16."\n"; 
    print $rgca."\n"; 
    print $icmate."\n"; 
    print $icolog."\n"; 
    print $idmu."\n"; 
    print $idad."\n"; 
    print $asml."\n"; 
    print $inf."\n"; 
    print $forme."\n"; 
    print $numano."\n"; 
    print $diapr."\n"; 
    print $infcp."\n"; 
}

2 remarques :

- il manquait bien les accolades aux nombres de caractères que tu veux mémoriser.
- au début de ta chaine, tu indiquais \s+, soit une chaine de caractères devant commencer par un espace (ou tabulation) au minimum. Ca ne pouvait pas matcher avec ta chaîne qui justement ne commence pas par un espace. J'ai donc remplacé par \s*.

voila mon code, mais il ne marche tjs pas

Code:

1
2
3
4
5
6
7
8
9
$msg = "0200 0706 2917 1840 0482 010A 0109 017D 0151 0000 0000 0000
		11AF 6100 040C 0000 0000 0151 1400 0206 0100 4000 0800 1820 
		0237 00"; 
if($msg =~ m{^\s+([\w\d]{4})\s+([\w\d]{4})\s+([\w\d]{2})([\w\d]{2})\s+([\w\d]{4})\s+(.*)$}x)
{ 
my $jsp1 = $1; 
my $date = $2.$3; 
my $heure = $4.$5; 
}

04/07/2007, 12h24
Arioch

Citation:

Envoyé par mariafan

voila mon code, mais il ne marche tjs pas

Heu, ça t'arrive de lire les réponses ???

J'ai publié ton code corrigé

C'est juste au-dessus de ta réponse...
04/07/2007, 13h55
mariafan

je m'excuse je l' avais pas vu
merci bcp ça marche