Discussion :

[kqkq21]

Bonjour à tous,

j'ai découvert Perl et son module mechanize récemment, et je souhaiterais automatiser une recherche par formulaire. Je travaille avec scite.

Le formulaire en question possède un menu déroulant, que je souhaite parcourir avec la fonction

$mech->select($mon_champ, {n => $i});
$mech-> submit;

Mon code fonctionne correctement, sauf en présence de caractères spéciaux.

Par exemple, une des valeurs de la liste est "Brétignole-sur-mer", s'imprime correctement sous scite avant de passer par mech, mais lorsque j'imprime :

print $mech->content; après le submit, je vois :

Brétignolles-sur-Mer

En fouillant le forum j'ai cru comprendre qu'il s'agissait d'un problème de transcodification (utf-8 et ISO-8859-1?) mais je ne vois pas comment corriger ca.

Sauriez vous comment faire pour ne plus avoir ce problème?

Quentin

PS: Je suis débutant et en perl et sur le forum, désolé si ma question est basique//con//au mauvais endroit//etc...

[iblis]

Tu imprimes dans un terminal ?

Essaie

Code :

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

1
2
use Encode;
print decode("iso-8859-1", $mech->content);

(J'imagine que la page est en iso-8859-1).

[kqkq21]

Tu imprimes dans un terminal ?

Essaie

Code :

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

1
2
use Encode;
print decode("iso-8859-1", $mech->content);

(J'imagine que la page est en iso-8859-1).

Ca ne donne rien :/

J'ai trouvé une manière détournée d'arriver au résultat.

Merci pour ta réponse