[caracas-pm] IO:Socket

Luis E. Muñoz lem at itverx.com.ve
Fri Oct 3 05:41:30 PDT 2008


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



More information about the caracas-pm mailing list