[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