Discussion :

[Bonjovi51]

Bonjour,

J'essaie d'utiliser une variable dans une expression régulière mais en vain

Je voudrai savoir si je passe par le bon chemin.

Code :

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

1
2
3
4
5
 
$expr = "([\d]{22})";
$expReg = /$expr/;
$expReg = $1;
print "Traite le fichier pour le numéro de ligne : ".$expReg."\n";

J'ai simplifié au maximum le code. En fait, je boucle sur ce bout de code.

J'utilise cette expression ([\d]{22}) n fois. Je ne connais pas au départ le nombre de boucle. C'est pourquoi j'utilise cette solution.

Pouvez-vous me dire s'il existe une autre solution (ou une solution de contournement).

Si je ne suis pas assez clair, faites-le moi savoir.

En vous remerciant d'avance pour vos réponses.

[iblis]

Je crois (je ne suis pas sûr) que ce que tu veux c'est simplement récupérer un nombre n de 22 chiffres (!) dans une chaîne et exécuter une boucle quelconque n fois.

Code :

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

1
2
3
4
5
6
my $n = $1 if $string =~ /(\d{22})/;
if (defined $n) {
    for (1..$n) {
        # do what you want
    }
}

Pas de panique à propos de la liste du for, là perl est lazy : il n'évalue qu'au fur et à mesure des besoins (il ne crée pas une liste de 10^22 termes !).

Au fait tu veux vraiment exécuter une boucle 10^22 fois ?

Si tu veux vraiment utiliser une regex variable, rien de plus simple mais là il te manque déjà l'usage de l'opérateur =~ (au lieu de =).

La doc est toujours utile: perlre et perlretut.

[Bonjovi51]

Bonjour et merci pour cette réponse.

En fait ce n'est pas ce que je veux faire. J'ai du vraiment mal m'exprimer. Je vais expliquer mon problème plus en détail.

Je dois, en fait, traiter un fichier formaté de cette façon...

Code :

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

1
2
3
4
5
6
7
0049334213000017418101;0049334213000017418201;183083260D-SA01;TTTCH1;2
0049334213000017418301;183083260D-SA01;TTTCH2;1
0049334213000017418401;183085525D-SA01;TTTCH1;1
0049334213000017418501;106510804B-SA01;TTTCH1;1
0049334213000017418601;0049334213000017418701;0049334213000017418801;054006214G-SA01;TTTCH1;3
0049334213000017418901;175291311G-SA01;TTTCH1;1
0049334213000017419001;083007725X-SA01;TTTCH1;1

Je ne connais pas au départ le nombre de numéro à 22 chiffres par ligne. (ex : 0049334213000017419001)

Je vais vous montrer ce que j'ai fait. Mon problème est que je ne sais pas comment récupérer les numéros positionnés en deuxième position jusqu'à la énième...

Je récupère par contre facilement le premier et le dernier.

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
while (<>) {
	#Récupération du nombre de numéro de ligne par ligne
	$nbNumLigne = /([\d]$)/;
	$nbNumLigne = $1;
	#Extraction de tous les numéros de ligne.
	if ($nbNumLigne == 1) {
		$expReg = /^([\d]{22});.*/;
		$expReg = $1;
		print $nbNumLigne." Traite le fichier pour le numéro de ligne : ".$expReg."\n";
	} else {
		$expReg = "";
		# Définition de l'expression régulière
		$expr =~ "([\d]{22})";
		#Boucle sur la ligne et récupération du numéro de la ligne s'il existe plusieurs numéros de ligne.
		for ($i = 1; $i <= $nbNumLigne; $i++) {
			#Construction de l'expression régulière récupérant les numéros par ligne.
			#Expression régulière récupérant le premier numéro.
			if ($i == 1) {
				$expReg = /^([\d]{22});.*/;
				$expReg = $1;
				print $nbNumLigne." Traite le fichier pour le numéro de ligne : ".$expReg."\n";
				#Lecture du fichier AC092-Regroup
				
			} elsif ($i eq $nbNumLigne) {
				$expReg = /.*;([\d]{22});[0-9]{9}[\w]{1}-SA[0-9]{2};.{6};[\d]/;
				$expReg = $1;
				print $nbNumLigne." Traite le fichier pour le dernier numéro de ligne : ".$expReg."\n";
			
			} else {
				#Pas sûr de l'ajout de l'expression régulière
				$expReg = $expr.$expr;
				$expReg = $i;
				print $nbNumLigne." Traite le fichier pour le numéro de ligne : ".$expReg."\n";
			}
		}
	}
}

Est-ce que quelqu'un pourrait m'aider svp!!

Merci

[iblis]

(je n'ai pas le temps d'expliquer, je dois finir un truc urgent)

Code :

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

1
2
3
4
5
6
my @result;
while (<>) {
    my @codes = /\d{22}/g;
    push @result, @codes[1..$#codes];    # ne récupère que du 2eme au nieme
}
print join " ", @result, "\n";

[Bonjovi51]

Merci pour ton aide. J'ai trouvé une solution. Je la partage à tout le monde

Code :

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

1
2
3
4
5
6
$cible = /(.*);[0-9]{9}[\w]{1}-SA[0-9]{2};.{6};[\d]/;
@table = split(/;/g,$1);
#Boucle sur le nombre de numéros de ligne
for ($i = 0; $i<=$#table; $i++) {
#Traite l'expression
}

Merci encore