regex dans variable

Bonjour a tous,

une petite question pour savoir comment pouvoir stocker une expression reguliere dans une variable.
Un exemple (qui ne fonctionne pas):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

... if($input_file eq "file1.asm"){ $regex=".*DW.*sec\.(\S*).\W*(\d*)"; } elsif($input_file eq "file2.asm"){ $regex=".*br.*sec\.(\S*).\W*(\d*)"; } while($line = <FIC>) { if($line =~ /$regex/){ ...

---

Y a t il possibilité de faire dans cette direction?

Merci beaucoup d'avance

Cordialement
Guillaume

Tu peux utiliser qr// pour stocker une regex précompilée dans une variable, c'est la meilleure option (sinon tu peux utiliser des strings normale mais la regex ne sera pas précompilée et le système d'échappement n'est pas le même que dans une vraie regex) :

Code:

---

1 2 3 4 5 6 7 8 9 10

if($input_file eq "file1.asm"){ $regex = qr/.*DW.*sec\.(\S*).\W*(\d*)/; } elsif($input_file eq "file2.asm"){ $regex = qr/.*br.*sec\.(\S*).\W*(\d*)/; } while($line = <FIC>) { if($line =~ m/$regex/){ ...

---

--
Jedaï

Merci beaucoup,
c'est parfait!