Re: Sockets en perl

[Salvador Ortiz Garcia <sog en msg com mx>]

On Mon, 26 Jul 1999, Gunnar Wolf wrote:

> Estoy intentando programar utilizando sockets en perl, para crear un
> mini-servidorcito... Por ahora, me basta (para saber que mi prueba es
> exitosa) que me mande de vuelta la cadena que yo escriba. Bueno, para esto
> intente el siguiente programa: 

Estoy a la carrera para ver tu código a detalle, pero con SOCK_STREAM yo
no uso recv ni send, uso getline (un vil <> pues) y print.

Te mando mi miniserver, muy muy parecido al tuyo para que puedas probar:

=========== Cut ======================== 
#!/usr/bin/perl -w
use IO::Socket;
my $sock = IO::Socket::INET->new(Listen => 5,
				 LocalAddr => '0.0.0.0',
				 LocalPort => 8888,
				 Proto => 'tcp');
while(1) {
	my $psock = $sock->accept();
	warn "Accept from ",$psock->peerhost,"\n";
	$psock->print("Bienvenido\n");
	while($_=$psock->getline) {
		print $_;
		$psock->print("ok\n");
	}
	warn "Close from ",$psock->peerhost,"\n";
	$psock->close;
}
==========================

Saludos

Salvador Ortiz