[SP-pm] Separar o primeiro do resto

[André Walker]

On Tue, Apr 30, 2013 at 07:37:41PM -0300, Tiago Peczenyj wrote:
> Seguinte: tenho X bytes como
>
> $x="12345"
>
> E quero pegar o primeiro e o resto:
>
> ($a,$b) = magica $x;
>
> $a = 1
> $b = 2345
>
> Comofas?

Se eu entendi bem o que você tá perguntando:

     sub magica {
         substr($_[0], 0, 1), substr($_[0], 1)
     }