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.004 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.002 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.
