Nao posso resolver com unpack ???
Em 30/04/2013 19:51, "Lucas Moraes" <[email protected]> escreveu:
> Só muda a expressão
> m{^([\d\w]{1})(.*?)}s
> $1 $2
>
>
> Em 30 de abril de 2013 19:46, Tiago Peczenyj
> <[email protected]>escreveu:
>
>> Bytes!
>>
>> Na verdade eh algo como
>>
>> 09 00 AF 1D..
>> Em 30/04/2013 19:41, "Lucas Moraes" <[email protected]>
>> escreveu:
>>
>> 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
>>>
>>>
>> =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
