Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Langage Perl "Need a field name" dans lwp (Headers.pm)

"Need a field name" dans lwp (Headers.pm)

3 réponses
Avatar
Aymeric Poulain Maubant
Bonjour,

j'utilise lwp (version 5.803) pour aller chercher une page sur le web,
extraire des infos de cette page et les utiliser par ailleurs.

sur un site web particulier ma sonde ne fonctionne pas, rendant
l'erreur 500 avec comme explication : "Need a field name". Pas grand
chose là-dessus sur google... Le message provient de Header.pm , dans
la fonction _header :

Carp::croak('Need a field name') unless length($field);

Soudainement cette fonction est appelée avec un $field de longueur 0,
et je ne vois pas qui l'appelle. Cela n'a pas l'air d'être moi
directement (je positionne par ex. le Header Host: , mais même si je
ne le fais pas cela ne change rien), je pense que c'est une réaction à
des headers du serveur web (pourtant aucun n'a l'air vide). Le serveur
en question tourne sous Microsoft-IIS/5.0 .

J'ai fini par commenter la ligne Carp::croak (et il n'y a bien sûr
plus de problèmes), mais ça m'ennuie.

Est-ce que cela évoque des souvenirs à quelqu'un ?

Merci d'avance,

Aymeric
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Denis -esp2008-
Bonjour,

Il faudrait en savoir plus sur le script et/ou le serveur web posant
problème, sinon le seul moyen pour obtenir une solution est de passer par
ici ttp://www.enstimac.fr/Perl/DocFr/perldebtut.html

--
Denis
Avatar
Aymeric Poulain Maubant
Denis -esp2008- writes:

Bonjour,

Il faudrait en savoir plus sur le script et/ou le serveur web posant


$url1 = "http://www.dmeurope.com/";
$url2 = "http://www.wirelessiq.info/";
$ua = new LWP::UserAgent;
$req = HTTP::Request->new("GET",$url);

$res = $ua->request($req);
if ($res->is_success) {
print "SUCCESSn";
} else {
print "STATUS[".$res->status_line."]n";
}

Aucun problème avec $url2 .

Avec $url1 , et sans commenter le :

Carp::croak('Need a field name') unless length($field);

dans Headers.pm , j'obtiens l'erreur : 500 "Need a field name"

Avatar
Denis -esp2008-
Bonjour,

Je ne rencontre aucun problème que ce soit avec $url1 ou avec $url2. À
mon avis la seule chose à faire est de mettre les différents modules
utilisés à jour.

--
Denis