melhor maneira de encontrar substring de número inteiro em perl

Question

Eu tenho uma string como

$number="1234567";

e eu quero extrair substring fora dele, mas eu não estou obtendo resultados adequados com a função substr .

Se eu executar

substr $number ,0,1 ;

eu recebo 1 como saída, mas deve ser 12 .

    

Answer 1

Para obter 12 , você precisa:

substr $number, 0, 2

A sintaxe para substr é:

substr $var, OFFSET, LENGTH

Então, quando você faz:

substr $number ,0,1

o OFFSET será 0 e LENGTH será 1 .

perl é indexado com zero, ou seja, a indexação começa em 0 e o comprimento da subseqüência selecionada é 1 , portanto, você obterá apenas 1 na saída esperada.