Using perl Syntax Highlighting
use strict;
use Socket;
socket(HTTP, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
my $atn = inet_aton("freshmea.net");
my $add = sockaddr_in(80, $atn);
connect(HTTP, $add) or die "Conexión: $!\n";
send(HTTP, "GET http://freshmeat.net HTTP/1.0\n", 0);
send(HTTP, "Host: www.yahoo.com\n", 0);
send(HTTP, "User-Agent: perlhttp/0.1 ($^O)\n\n", 0);
chomp(my $msg = <HTTP>); #status
while(my $line = <HTTP>){
chomp;
#hacer algo con headers y codigo...
print $line;
}
shutdown HTTP, 2; #por si algo anda mal
use Socket;
socket(HTTP, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
my $atn = inet_aton("freshmea.net");
my $add = sockaddr_in(80, $atn);
connect(HTTP, $add) or die "Conexión: $!\n";
send(HTTP, "GET http://freshmeat.net HTTP/1.0\n", 0);
send(HTTP, "Host: www.yahoo.com\n", 0);
send(HTTP, "User-Agent: perlhttp/0.1 ($^O)\n\n", 0);
chomp(my $msg = <HTTP>); #status
while(my $line = <HTTP>){
chomp;
#hacer algo con headers y codigo...
print $line;
}
shutdown HTTP, 2; #por si algo anda mal
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Bien, se supone que debería salir el index (según el RFC 2616 y los intentos que he hecho en Yahoo! Perl.org y otros) pero por alguna razón no sale en este servidor, dice que no existe (busca por http://freshmeat.nethttp://freshmeat.net) y ahora me pregunto y les pregunto :
¿Es algo del servidor o es mi código?
¿Como se cual es el index (punto de inicio) en el servidor http?
Ya se que debería usar LWP, pero quiero hacerlo todo desde 0.
¿Alguna idea?
Gracias.