Função Perl Substr() e sua aplicação
Exemplo de função perl substr(), código de exemplo de função substr() - Retorna uma substring de EXPR, começando no deslocamento OFFSET dentro da string.
gramática:
subVYRoBPstr EXPR, OFFSET, LEN, SUBSTITUIÇÃO
substr EXPR, OFFSET, LEN
substr EXPR, OFFSET
Definição e Uso
Retorna uma substring de EXPR, começando no deslocamento OFFSET dentro da string. Se OFFSET for negativo, inicie a string com o final de tantos caracteres. Se LEN for especificado, retorna o número de bytes ou todos os bytes até o final da string (se não for especificado). Se len for negativo, quantos caracteres devem terminar a string.
Se estiver substituindo a substring especificada por REPLACEMENT replace, substitua a string de REPLACEMENT.
Se você especificar uma substring, além do final da string, somente os elementos válidos da string original serão retornados.
valor de retorno
corda
exemplo
Tente o seguinte exemplo:
#!/usr/bin/perl -w
#poryiibai.com
$temp = substr("ok", );
print "O valor da substring é $temp\n";
$temp = substr("tudo bem", ,);
print "O valor da substring é $temp\n";
Isso produzirá o seguinte resultado:
O valor da substring é sim
O valor da substring é ka
Análise de instância do aplicativo de função Perl substr
Este artigo enfoca a aplicação da função perl substr.Ao escrever um programa perl, às vezes precisamos interceptar parte de uma string.No momento, geralmente usamos a função substr para obter essa função.
Aplicação da função Perl substr
Ao escrever um programa perl, às vezes precisamos interceptar parte de uma string.No momento, geralmente usamos a função Perl substr para realizar essa função.
$str="testtest";
printsubstr($str,0,5);
$str="testtest";
printsubstr($str,0,5);
Execute o programa acima, o resultado é "testt", este é o resultado que queremos. Observe novamente o seguinte programa:
$str="texto de teste";
printsubstr($str,0,1);
$str="texto de teste";
printsubstr($str,0,1);
Neste momento, um "?" é emitido, o que obviamente não é o resultado que queremos. Porque em perl, todas as strings inseridas de fora (incluindo strings escritas no programa) serão tratadas como bytes, "printsubstr($str,0,1);" Esta frase apenas coloca "texto de teste" O primeiro byte é retirado e saída com impressão, mas um único byte não pode representar um caractere chinês, então "?" é a saída.
Se você deseja que o programa acima gere o resultado correto, você precisa usar a função decodificar para converter o "texto de teste" em uma string interna perl, deixe o perl tratar o "texto de teste" como uma string e, em seguida, use "substr( $str, 0,1);"A interceptação não é um byte, mas um caractere chinês.
Vamos dar uma olhada no uso da função Perl substr:
Comando: substr
Sintaxe: substr($string, offset, length)
offset representa a posição do caractere inicial, length representa o comprimento da string entre aspas e, se length for omitido, representa o comprimento do valor inicial até o último caractere da string. e
Se offset for um valor negativo, os caracteres serão especificados do lado direito da string.
Exemplo:
$s=substr("perl5",2,2);#No momento $s="rl";
$s=substr("perl5",2);#No momento $s="rl5";
$s=substr("perl5",-2,2);#Neste momento $s="er";