UTF8 é capcioso. Ninguém melhor que o brian d foy para explicar: http://www.effectiveperlprogramming.com/blog/1381
ABS() On Tue, Mar 20, 2012 at 20:22, Renato Santos <[email protected]> wrote: > Cuidado: ao cortar os bytes verifique se vc não cortou "meio" caracteres > (um ç no utf8 sao 2 bytes) > > Então vc pode fazer: > > sub conta_bytes > sub tira_char > If bytes > limite então corta 0..limite *2 ? > 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?!) > Em 20/03/2012 19:46, "Thiago Glauco" <[email protected]> escreveu: > > Você pode simplesmente contar os bytes. >> ou: >> >> perldoc -f read >> perldoc -f sysread >> >> Em Ter, 2012-03-20 às 20:17 +0000, Aureliano Guedes escreveu: >> > Boa tarde monges, >> > >> > Alguem teria uma ideia pra me ajudar a limitar o tamanho de uma >> > string. >> > >> > Exemplo, essa string ou mesmo array vai amarzenar determinador arquivo >> > de texto, contudo eu não quero que guarde esse arquivo se >> > ele tiver mais de que 30kb, por exemplo. >> > >> > Ou intão, eu envio pacotes para um determinado IP, e quero decidir o >> > tamanho de cada pacote. >> > >> > Ansiosamente aguardando resposta, >> > >> > Aureliano Guedes >> > >> > =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 >> >> >> =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 >> > > =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 > >
=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
