perl regular expression

Bonjour,

pourriez vous me dire ce qui ne va pas dans l'expression reguliere qui me génère une erreur

Code:

---

1 2 3 4

if($content=~/m/<TR class(.*)>(.*)<\/TABLE>/){ $usefull=$2; }

---

syntax error at Parsing.pl line 14, near "(."
Execution of Parsing.pl aborted due to compilation errors.

merci par avance

C'est le / avant le m/...

Au passage pour éviter la variable à effet de bord $2, tu peux écrire ainsi :

Code:

---

1 2 3

if(my ($usefull) = $content =~ m/<TR class(?:.*)>(.*)<\/TABLE>/){ # ... }

---

merci,

ayant toujours des difficultés avec les regexp
j'en cherche une qui matche l'expression suivante

<TD style=3D"WIDTH: =
20px">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>

celles-ci ne semblent pas fonctionner

Code:

---

1 2 3 4

~m/<TD style=3D"WIDTH: =.*&nbsp;*<\/TD>/   ~m/<TD.*&nbsp;<\/TD>/

---

Citation:

---

Envoyé par yoruichiy

merci,

ayant toujours des difficultés avec les regexp
j'en cherche une qui matche l'expression suivante

<TD style=3D"WIDTH: =
20px">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>

celle-ci ne semble pas fonctionner

Code:

---

1 2	~m/<TD style=3D"WIDTH: =.*&nbsp;*<\/TD>/

---

---

je pense que ces 2 expressions doivent matcher:

Code:

---

1 2 3

~m/<TD style=3D"WIDTH: =.*&nbsp;<\/TD>/ ~m/<TD style=3D"WIDTH: =.*(&nbsp;)*<\/TD>/

---

Bonjour,
Si tu essaies de matcher des lignes directement depuis un fichier, je pense que cela ne fonctionnera pas car au vu de ton input, celui-ci est sur 2 lignes.

Citation:

---

Envoyé par Philou67430

Au passage pour éviter la variable à effet de bord $2, tu peux écrire ainsi :

Code:

---

1 2 3

if(my ($usefull) = $content =~ m/<TR class(?:.*)>(.*)<\/TABLE>/){ # ... }

---

---

En fait, il n'y a même pas besoin de parenthèses:

Code:

---

1 2 3

if(my ($usefull) = $content =~ m/<TR class.*>(.*)<\/TABLE>/){ # ... }

---

[/QUOTE]