[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