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.003 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.
Claro, sabes, hace 5 días hice eso (desde el browser) y no pude resolver así que pensé que no existía tal cosa, pero era error de conexión.