Bonjour,

Je veux me connecter à un site, mais celui ci n'accepte pas les connections anonymes tel que :
Je voudrai prendre le user qui lance le script ? est ce possible


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $serveur = "www.serveur.com";
my $repertoire_virtuel = "/dirvir";
 
my $s = Net::HTTP->new(Host => $serveur) || die "Erreur : $@";
$s->write_request(GET => "$repertoire_virtuel/acceuil.asp", 'User-Agent' => "Mozilla/5.0");
 
my($code, $mess, %h) = $s->read_response_headers;
 
my $buf;
my $n;
for ($n = $s->read_entity_body ($buf, 1024); $n != 0 ;$n = $s->read_entity_body ($buf, 1024))
{ 
print $buf;
#print "\n\n\ $buf \n\n";
Merci pour votre aide

Ajout des balises [ code ] et [ /code ] par 2Eurocents