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
j'ai remarqué que si on retire --> aprés $1 ça marche (mais c'est pas vraiment ce que je veux)
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"; }
c'est donc à cause de --> àprés $1 mais pourquoi ???
Partager