[caracas-pm] IO:Socket
Hans Olzem
holzem at cantv.net
Sat Oct 4 09:41:29 PDT 2008
Hola Luis,
gracias por la ayuda.
Usando getlines() me arroja un error:
TK::Error: Can't call $io->getlines in a scalar context.
Constructos con $sock->getline o <$sock> siempre terminan congelandose la aplicacion .
Saludos
Hans
On Fri, 03 Oct 2008 08:11:30 -0430
"Luis E." Muñoz <lem at itverx.com.ve> wrote:
> On Fri, 2008-10-03 at 07:30 -0430, Hans Olzem wrote:
> > #Ahora la pregunta: Como tengo accesso a esta repuesta del servidor?
> > #Con telnet funciona bien.
>
> IO::Socket es una especialización de IO::Handle, de manera que todos los
> métodos de ::Handle están disponibles. Esto es, el socket es un
> filehandle.
>
> Puedes leer usando varias fórmulas. Usa la que te parezca más cómoda
> (este ejemplo es un cliente HTTP mínimo):
>
> ### Usando ->getlines
>
> #! /usr/bin/perl
>
> use strict;
> use warnings;
> use IO::Socket;
>
> my $sock = new IO::Socket::INET (PeerAddr => 'localhost:80', Proto =>
> 'tcp')
> or die "Failed to create socket: $!\n";
>
> print $sock "GET / HTTP/1.0\r\n\r\n"
> or die "Failed to send: $!\n";
>
> print $_ for $sock->getlines;
> # O esta variante
> # print $_ for <$sock>;
>
> __END__
>
> Saludos
>
> -lem
>
> _______________________________________________
> caracas-pm mailing list
> caracas-pm at pm.org
> http://mail.pm.org/mailman/listinfo/caracas-pm
--
Hans Olzem <holzem at cantv.net>
More information about the caracas-pm
mailing list