Discussion :

[LFC]

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.

[Jedai]

Tu peux utiliser une regex comme ça :

Code :

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

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

--
Jedaï

[dmitry_ovsianko]

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

Code :

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

/<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.

[LFC]

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

Code :

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

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.

[dmitry_ovsianko]

Code :

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

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

[Jedai]

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 :

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

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.

--
Jedaï