Discussion :

[chtiboss]

Bonjours,
je ne comprend pas pourquoi je n'arrive pas à récuperer ce qu'il y a entre les deux balise dans la variable $2

Code :

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

1
2
3
4
5
6
7
8
9
 
my $lgn = "<!--TABLE1-->chfjichfdsi<!--/TABLE1-->";
print $lgn;
if ($lgn =~ /<!--TABLE([0-9]+)-->(.*)<!--\/TABLE$1-->/)
{
	print "\nok\n";
	print "1:$1\n";
	print "2:$2\n";
}

j'ai remarqué que si on retire --> aprés $1 ça marche (mais c'est pas vraiment ce que je veux)
c'est donc à cause de --> àprés $1 mais pourquoi ???

[nyal]

Bonjour,

Tu ne peux utiliser $1 dans la meme expression reguliere. Car l'interpolation des variables se fait avant la gestion de l'expression.
Voila ce que tu peux faire :

Code :

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

1
2
3
4
5
6
7
8
9
 
my $lgn = "<!--TABLE1-->chfjichfdsi<!--/TABLE1-->";
print $lgn . "\n";
if ($lgn =~ /<!--TABLE([0-9]+?)-->(.*?)<!--\/TABLE[0-9]+?-->/)
{
    print "\nok\n";
    print "1: $1\n";
    print "2: $2\n";
}

[chtiboss]

ok d'accord merci pour l'info
Je suis obliger de le faire en deux expression régulière donc.
Un autre problème me viens
Si la chaine est sur plusieur ligne ligne ou si il y a des \n entre les deux balise je suis tenté d'écrire quelque chose comme ceci mais ca ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my $lgn = "<!--TABLE1-->chfjichfdsi\n<!--/TABLE1-->"; 
print $lgn . "\n"; 
 
if ($lgn =~ /<!--TABLE([0-9]+?)-->/) 
{ 
	$lgn =~ /<!--TABLE$1-->([.|\n]*)<!--\/TABLE$1-->/gm;
    print "\nok\n"; 
    print "1: $1\n"; 
    print "2: $2\n"; 
print "3: $3\n"; 
}

Merci de m'aider une fois encore

[Jedai]

Tu ne peux pas utiliser $1, mais par contre tu peux utiliser \1 :

Code :

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

1
2
3
4
5
6
7
8
9
 
my $lgn = "<!--TABLE1-->chfjichfdsi<!--/TABLE1-->";
print $lgn;
if ($lgn =~ /<!--TABLE([0-9]+)-->(.*)<!--\/TABLE\1-->/)
{
   print "\nok\n";
   print "1:$1\n";
   print "2:$2\n";
}

( heureusement que perl sait faire ça !! )

[Jedai]

Pour répondre à ton deuxième problème "[.|\n]" peut reconnaître un point (juste "." pas n'importe quel caractère) ou "|" ou une fin de ligne.... Ceci parce que "." ou "|" perdent leur sens magique dans une classe de caractère [], ce que tu veux faire est plus probablement ((?:.|\n)*) où (?: ) regroupe les deux alternatives du "|" mais sans les capturer dans une variable.

Par ailleurs il y a une solution plus jolie, c'est le modificateur /s, qui fait en sorte qu'un "." reconnaisse même les fin de ligne. Le modificateur /m ne sert à rien ici, car il fait en sorte que "^" et "$" reconnaissent le début et la fin d'une ligne, plutôt que le début et la fin de la chaîne.
Je pense donc que ta regexp devrait être comme ça au final :

Code :

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

1
2
3
4
5
6
7
8
9
 
my $lgn = "<!--TABLE1-->chfjichfdsi\nblabla<!--/TABLE1-->";
print $lgn;
if ($lgn =~ /<!--TABLE(\d+)-->(.*)<!--\/TABLE\1-->/s)
{
   print "\nok\n";
   print "1:$1\n";
   print "2:$2\n";
}

(Pourquoi /g au fait ??)

[chtiboss]

g pour recherche global

[Jedai]

Oui, d'accord, mais pour quoi faire ? Tu n'utilise que la première occurrence ici, /g est utile dans une boucle ou pour plusieurs reconnaissances à la suite, mais sinon il ne sert à rien. Nous ne sommes pas ici dans une substitution où l'on doit mettre /g pour que toutes les occurrences soient remplacées.