emisor:
Using perl Syntax Highlighting
- use IO::Socket;
- my $sock = new IO::Socket::INET (
- PeerAddr => 'asomatos',
- PeerPort => '7070',
- Proto => 'tcp',
- );
- die "Could not create socket: $!\n" unless $sock;
- print $sock "Hello there!\n";
- close($sock);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
y receptor:
Using perl Syntax Highlighting
- use IO::Socket;
- my $sock = new IO::Socket::INET (
- LocalHost => 'thekla',
- LocalPort => '7070',
- Proto => 'tcp',
- Listen => 1,
- Reuse => 1, 8 );
- die "Could not create socket: $!\n" unless $sock;
- my $new_sock = $sock->accept();
- while(<$new_sock>)
- {
- print $_;
- }
- close($sock);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Esto, en su contexto, envía un mensaje del emisor hacia el receptor y éste lo imprime, pero ahora necesito enviar un mensaje al receptor. Éste no lo imprime pero sé devuelve otro al emisor. Si alguien pudiese guiarme se lo agradecería, muchas gracias por todo, saludos.
