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
