UTF8 é capcioso. Ninguém melhor que o brian d foy para explicar: <a href="http://www.effectiveperlprogramming.com/blog/1381">http://www.effectiveperlprogramming.com/blog/1381</a><div><br>ABS()<br><br>
<br><br><div class="gmail_quote">On Tue, Mar 20, 2012 at 20:22, Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com">renato.cron@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<p>Cuidado: ao cortar os bytes verifique se vc não cortou "meio" caracteres (um ç no utf8 sao 2 bytes)</p>
<p>Então vc pode fazer: </p>
<p>sub conta_bytes<br>
sub tira_char <br>
If bytes > limite então corta 0..limite *2 ?<br>
Não sei se vale a pena prestar atenção nisso! "muito" cálculo por algo q raramente acontece (ou vc está num outro idioma?!)</p>
<div class="gmail_quote">Em 20/03/2012 19:46, "Thiago Glauco" <<a href="mailto:thiagoglauco@ticursos.net" target="_blank">thiagoglauco@ticursos.net</a>> escreveu:<div><div class="h5"><br type="attribution">

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Você pode simplesmente contar os bytes.<br>
ou:<br>
<br>
perldoc -f read<br>
perldoc -f sysread<br>
<br>
Em Ter, 2012-03-20 às 20:17 +0000, Aureliano Guedes escreveu:<br>
> Boa tarde monges,<br>
><br>
> Alguem teria uma ideia pra me ajudar a limitar o tamanho de uma<br>
> string.<br>
><br>
> Exemplo, essa string ou mesmo array vai amarzenar determinador arquivo<br>
> de texto, contudo eu não quero que guarde esse arquivo se<br>
> ele tiver mais de que 30kb, por exemplo.<br>
><br>
> Ou intão, eu envio pacotes para um determinado IP, e quero decidir o<br>
> tamanho de cada pacote.<br>
><br>
> Ansiosamente aguardando resposta,<br>
><br>
> Aureliano Guedes<br>
><br>
> =begin disclaimer<br>
>    Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
>  SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
>  L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
> =end disclaimer<br>
<br>
<br>
=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
</blockquote></div></div></div>
<br>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br></div>