com regex você faz isso
m{(\d{1})(\d{1,})}s;
$1, $2
Em 30 de abril de 2013 19:37, Tiago Peczenyj <[email protected]>escreveu:
> Seguinte: tenho X bytes como
>
> $x="12345"
>
> E quero pegar o primeiro e o resto:
>
> ($a,$b) = magica $x;
>
> $a = 1
> $b = 2345
>
> Comofas?
>
> Eu posso fazer bytes::substr 2 vezes mas ta feio...
>
> =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
