Eden Cardim wrote:
> Manda um exemplo implementando isso que vai ficar claro o que eu quis
> dizer com "não trivial".
num terminal
$ nc -l 1234 > foo
em outro
$ echo hello world | perl -MIO::Socket -pe 'BEGIN{select
IO::Socket::INET->new(PeerAddr=>shift,PeerPort =>(shift))}' localhost
1234
$
de volta ao primeiro
$ cat foo
hello world
$
adaptando disso aqui http://www.perlmonks.org/?node_id=304388
que estava entre os primeiros hits no google para: netcat perl
QED, a pergunta do OP faz sentido :)
--
Nuba R. Princigalli [email protected] http://pauleira.com @nprincigalli
Discipline is not an end in itself, just a means to an end. - King Crimson
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
