Foro - Perl en Español

por **escanda** » 2008-07-11 10:20 @472

Hola a todos ¿Qué tal? Yo soy novato en Perl y por eso les pido que por favor me ayuden, necesito que dos pc se puedan hablar entre sí. Para eso escribí el siguiente código.

Servidor:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use strict;
use Socket;

# use port 7890 as default
my$port=shift||7890;
my$proto=getprotobyname('tcp');

# create a socket, make it reusable
socket(SOCKET, PF_INET, SOCK_STREAM,$proto)
ordie"Can't open socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1)
ordie"Can't set socket option to SO_REUSEADDR $!\n";

my$paddr= sockaddr_in($port, INADDR_ANY);

# bind to a port, then listen
bind( SOCKET,pack('Sn4x8', AF_INET,$port,"\0\0\0\0"))
ordie"Can't bind to port $port! \n";
listen(SOCKET, 5)ordie"listen: $!";
print"SERVER started on port $port\n";

# accepting a connection
my$client_addr;
while($client_addr=accept(NEW_SOCKET, SOCKET)){
# send them a message, close connection
print NEW_SOCKET "PROBANDO";
close NEW_SOCKET;
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Cliente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
# client.pl
#----------------

use strict;
use Socket;

# initialize host and port
my$host=shift||`hostname`;
my$port=shift||7890;
my$server="192.168.10.58";

# create the socket, connect to the port
socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2])
ordie"Can't create a socket $!\n";
connect( SOCKET,pack('Sn4x8', AF_INET,$port,$server))
ordie"Can't connect to port $port! \n";

my$line;
while($line=<SOCKET>){
print"$line\n";
}
close SOCKET ordie"close: $!";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

A la hora de probar esto no pasa nada y me aparecen errores, así que les pido por favor ayuda.

Gracias.

#!/usr/bin/perl -w 
# client.pl 
#---------------- 

use strict;
use Socket;

# initialize host and port 
my$host=shiftor`hostname`;# esto no sirve de nada! 
my$port=shiftor7890;
my$server="192.168.10.58";

# create the socket, connect to the port 
socket( SOCKET, AF_INET, SOCK_STREAM,getprotobyname('tcp'))
ordie"Can't create a socket $!\n";
my$sin= sockaddr_in($port, inet_aton($server));

if(connect( SOCKET,$sin)){
while(my$line=<SOCKET>){
print"$line\n";
}
}
else{die"Can't connect to $server : $!\n";}
shutdown( SOCKET, 2 )ordie"close: $!";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Debería de funcionar.

Editado

En cuanto al servidor:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use strict;
use Socket;

# use port 7890 as default
my$port=shiftor7890;
my$proto=getprotobyname('tcp');

# create a socket, make it reusable
socket(SOCKET, PF_INET, SOCK_STREAM,$proto)
ordie"Can't open socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1)
ordie"Can't set socket option to SO_REUSEADDR $!\n";

my$paddr= sockaddr_in($port, INADDR_ANY);

# bind to a port, then listen
my$in= sockaddr_in($port, INADDR_ANY);
bind( SOCKET,$in)
ordie"Can't bind to port $port! \n";
listen(SOCKET, 5)ordie"listen: $!";
print"SERVER started on port $port\n";

# accepting a connection
my$client_addr;
while($client_addr=accept(NEW_SOCKET, SOCKET)){
# send them a message, close connection
print NEW_SOCKET "PROBANDO";
close NEW_SOCKET;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Te recomiendo Perl Coockbook e IO::Socket.

Foro - Perl en Español

Ayuda con Socket

Ayuda con Socket

Publicidad

¿Quién está conectado?