Discussion :

[maxos75]

Bonjour, j'utilise le code suivant pour tester la présence d'un mot dans la source d'une page web

si je le fais avec yahoo.fr ça fonctionne
par contre pour d'autres sites du genre www.netpme.fr ça ne fonctionne plus alors que dans le navigateur avec le click droit ça fonctionne..
si vous avez une idée...

#!/usr/bin/perl -w
use strict;
use LWP::Simple;
my $content = get('http://www.yahoo.fr');
print $content;
#teste la presence du mot entre / et /
i©f ($content =~ /toto/) {
print "le motif \"toto\" est présent dedans \n ";
}

[Woufeil]

Bonjour.

Peux tu nous dire ce que renvoie le print sur les pages où le mot est bien présent mais pas matché ?

Au fait, pour la prochaine fois n'oublie pas de mettre les balises code autour de ton code

[maxos75]

et bien j'ai le message suivant si ça marche:
le motif "toto" est prént dans


et le suivant si ça marche pas

Use of uninitialized value in print at toto.pl line 5.
Use of uninitialized value in pattern match (m//) at toto.pl line 7.

[Woufeil]

Oki, bon ben j'ai trouvé ton erreur

En fait, quand la fonction get du module LWP::Simple n'arrive pas à obtenir le contenu d'une page, elle affecte undef à la variable que tu as nommé $content. Donc le problème viens du fait que LWP::Simple n'arrive pas à obtenir le contenu de http://www.netpme.fr/. Quant à savoir pourquoi, aucune idée

Modifie ton code comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
use strict;
use LWP::Simple;
my $content = get('http://www.yahoo.fr');
if ($content)
{
    #teste la presence du mot entre / et /
    if ($content =~ /toto/) {
    print "le motif \"toto\" est présent dedans \n ";
}
else 
{
    print "La page n'a pas été chargée correctement";
}

Ca ne réglera pas ton problème, mais au moins ça te permttra de comprendre mieux ce qui se passe

[maxos75]

oui j'avais déjà essayé merci bien.
Je me suis dis que c'était peut etre parcequ'il s'agissait d'une redirection mais non carte j'ataque une page directement et ça ne fonctionne pas non plus.
De plus j'ai verifié l'absence de redirection avec HTTPWATCH !


Si qqun à une autre idée, elle est la bienvenue !

[maxos75]

Bonjour,

Peut etre une piste mais toujours pas de solutions,
peut etre est-ce une histoire de charset...

je sais que les sites testés avec le script et qui fonctionnet était en utf-8,

alors que celui qui m'intéresse est en text/htm....

une idée?