[SP-pm] limitando tamanho da string em bytes

[Nuba Princigalli]

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  nuba em pauleira.com  http://pauleira.com  @nprincigalli
Discipline is not an end in itself, just a means to an end. - King Crimson