[web] Recherche et récupération du motif <img src.... > ds f

Bonjour

Je souhaite créer un script qui va me permettre de checker dans une grosse liste de fichiers html les balises images et vérifier qu'elles ont l'attribut "alt".

Pour cela, je souhaite à la fin obtenir un fichier txt où j'aurai 1 ligne composée de 2 champs :
NOM DU FICHIER - Balise <img src....>

Le motif que je recherche à collecter est donc "<img src" puis tout le reste jusqu'au caractère >, et c'est là le hic, je ne sais pas comment écrire le code pour dire :
"dès que tu trouves le motif "<img src", tu récupères depuis la balise "<" jusqu'à la balise ">".

Qui peut m'aider ?


Merci.

Tu peux utiliser une regex comme ça :

Code:

---

1 2	m/<(img src[^>]+)>/i

---

:D

--
Jedaï

Au cas ou 'alt' précède 'src' on peut utiliser cette forme:

Code:

---

/<img (.*?)src(.*?)>/i

---

Mais peut-être le module HTML::LinkExtor (http://search.cpan.org/~gaas/HTML-Pa...L/LinkExtor.pm) serait plus convenable que des regex -- il prévoit toutes les variantes pathologiques.

Ok, mais comment est-ce que je fais pour l'attribuer en variable ?
J'ai écrit :

Code:

---

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

#!/usr/bin/perl -w   open(IN,"http://www.monsite.com/index.html"); my @tabular = <IN>;   foreach my $line(@tabular) { chomp($line); # faire quelque chose avec $line $image = m/<(img src[^>]+)>/i; print "$image\n"; }   close(IN);

---

Et là, il devrait m'afficher que des lignes de balises images, n'est ce pas ?

Mais je pense qu'il y a beaucoup d'erreurs encore...

Merci de votre aide.

Code:

---

1 2 3 4

... $image =~ m/<(img src[^>]+)>/i; # pas '=', mais '=~' print "$1\n"; # 1-re balise ...

---

Non, il faut spécifier la variable concernée par ses actions, lorsqu'il ne s'agit pas de $_ . Ici il s'agit de $line (et pas de $image) :

Code:

---

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

#!/usr/bin/perl -w   open(IN,"http://www.monsite.com/index.html"); my @tabular = <IN>;   foreach my $line(@tabular) { chomp($line); # faire quelque chose avec $line $image = ( $line =~ m/<(img.+?src[^>]+)>/i ); print "$image\n"; }   close(IN);

---

Là ça devrait donner quelque chose. :D

--
Jedaï