Bonjour,

Je suis en train de coder un script Perl pour récupérer les emails des pages pros afin d'envoyer mon CV.

J'ai un petit souci pour passer un resultat POST obtenu via un autre POST.
En fait la requete se fait en 2 parties.
(1) => on rempli l'activité
(2) => on rempli le lieu

Mon code : (1)
1.pl
-----------------------------------------------------------------------
use strict;
use LWP::UserAgent;
use HTML::Form;

my $ua = new LWP::UserAgent;

my $response
= $ua->post('http://www.pagespro.com',
{ p_ORDRE => 'AfficheRes',
p_ORDRE => 'DonneeGuideSpecsActiv',
p_DATA => '0109',
p_DATA_AFF => 'Informatique, télécommunication',
});
open(FILE,">result.txt");
print FILE $response->content;
close(FILE);
-----------------------------------------------------------------------
Cela permet de récupérer l'activité.


Mon code : (2)
2.pl
-----------------------------------------------------------------------
use LWP::UserAgent;

my $ua = new LWP::UserAgent;

my $response
= $ua->post('http://www.pagespro.com',
{ p_ORDRE => 'AfficheRes',
a_PAGE => '1',
a_OccRecherche => '1',
a_activ => 'Informatique, télécommunication',
a_geo => 'idf',
});

open(FILE,">result2.txt");
print FILE $response->content;
close(FILE);
-----------------------------------------------------------------------
Ici dans ce bout de code, on lance la recherche qui nous retourne le nombre de reponses.

Mon problème est que dans a_activ j'aimerais inclure le 1er code afin de ne pas couper le requete. Car en méttant le résultat à la main il n'est pas interpré de la même manière.

Je ne sais pas si c'est tres clair, mais j'attend vos remarques.
Merci.

Cordialement,
Shamann.