Perl, socket et http

Fermé
sylvain - 8 déc. 2010 à 21:31
Bonjour,

J'aimerais essayer d'utiliser les sockets en perl pour lire une page web.
Je veux faire comme ca, pour voir, je ne veux pas utiliser de packages speciaux ni rien, mais j'aimerais comprendre.
Et comme je n'y arrive pas, je me dit que je dois rater quelquechose.

J'ai le "client" suivant, l'adresse IP a ete obtenue apres un ping www.google.fr


-----------------------------
#!/usr/bin/perl
# client.pl
#----------------

use strict;
use Socket;
# initialize host and port

my $port = shift || 80;
my $server = "74.125.79.147";

# create the socket, connect to the port
socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2])
or die "Can't create a socket $!\n";
connect( SOCKET, pack( 'Sn4x8', AF_INET, $port, $server ))
or die "Can't connect to port $port! \n";

my $line;
while ($line = <SOCKET>) {
print "$line\n";
}
close SOCKET or die "close: $!";

-----------------------------


Lorsque je l'utilise, ca me retourne tout simplement qu'il ne peut pas se connecter au port 80.

Deux questions :
1- Pourquoi?
2- Comment faut-il s'y prendre ?

Merci d'avance.

Sylvain