Uso da função de substrutão Perl
Sintaxe
A sintaxe da função substr () é mencionada abaixo.
Substring (mainstring, startIndex, [, comprimento [, replacestring]]))
- Mainsting: O primeiro argumento é usado para armazenar a sequência principal a partir da qual a substring será cortada.
- StartIndex: o segundo argumento é usado para definir a posição inicial para cortar ou substituir a substring. O valor desse argumento pode ser positivo ou negativo.
- Comprimento: o terceiro argumento é usado para definir o comprimento da substring. O valor desse argumento pode ser positivo ou negativo, e esse argumento é opcional.
- Replacestring: O quarto argumento é usado para substituir a parte específica da sequência principal com base nos valores do segundo e no terceiro argumentos. Este argumento é opcional.
- A substring do comprimento específica é retornada pela função substr ().
Diferentes usos da função substr () foram mostrados na próxima parte deste tutorial.
Exemplo 1: Uso da função substr () sem argumento opcional
Crie um arquivo PERL com o seguinte código que mostra o uso da função substr () sem qualquer argumento opcional. O valor positivo do índice inicial foi usado na primeira função substr (). Portanto, o valor do índice começará a contar do valor 0 e do lado esquerdo. O valor do índice inicial negativo foi usado na segunda função substitur (). Portanto, o valor do índice começará a contar de 1 valor e o lado direito. A saída de ambas as funções substitutas () foi impressa posteriormente.
#!/usr/bin/perl
#Define o valor da string
$ string = "Bem -vindo ao linuxhint";
#Print O valor orginal
Imprimir "A string original é: \ n", $ string, "\ n";
#Cut a substring usando o valor do índice positivo
$ substring = substr ($ string, 11);
Imprima "O valor da substring usando índice positivo: \ n", $ substring, "\ n";
#Cut a substring usando o valor do índice negativo
$ substring = substr ($ string, -9);
Imprima "O valor da substring usando índice negativo: \ n", $ substring, "\ n";
Saída:
A saída a seguir aparecerá após a execução do código acima.
Exemplo 2: Uso da função substr () com o primeiro argumento opcional
Crie um arquivo PERL com o seguinte código que mostra o uso da função substr () com o primeiro argumento opcional. O valor positivo do índice inicial foi usado nas duas funções substitutas aqui. O valor do comprimento positivo foi usado na primeira função substitur (). Portanto, o valor do comprimento será contado da esquerda. O valor do comprimento negativo foi usado na segunda função substitur (). Portanto, o valor do comprimento será contado da direita. O valor do comprimento começa a contar de 1 para valores positivos e negativos. A saída de ambas as funções substitutas () foi impressa posteriormente.
#!/usr/bin/perl
#Define o valor da string
$ string = "Bem -vindo ao linuxhint";
#Print O valor orginal
Imprimir "A string original é: \ n", $ string, "\ n";
#Cut a substring usando valores de índice positivo e comprimento
$ substring = substr ($ string, 3, 4);
Imprima "O valor da substring usando índice positivo: \ n", $ substring, "\ n";
#Cut a substring usando índice positivo e valores de comprimento negativo
$ substring = substr ($ string, 11, -4);
Imprima "O valor da substring usando índice negativo: \ n", $ substring, "\ n";
Saída:
A saída a seguir aparecerá após a execução do código acima.
Exemplo 3: Uso da função substr () com todos os argumentos opcionais
Crie um arquivo PERL com o seguinte código que mostra o uso da função substr () com todos os argumentos opcionais. A função substr () foi usada três vezes aqui. Na primeira função substr (), a substring correspondente será substituída pela string, “php.”Na segunda função Substr (), a substring correspondente será substituída pela string,“ Script.”Na terceira função Substr (), a substring correspondente será substituída pela string vazia. A saída de todas as funções substitutas () foi impressa posteriormente.
#!/usr/bin/perl
#Define o valor da string
$ string = "Learn Perl Programming";
#Print O valor orginal
Imprimir "A string original é: \ n", $ string, "\ n";
#Rplace a substring usando índice positivo e valor de comprimento
$ substituir1 = substr ($ string, 6, 4, "php");
Imprima "A sequência substituída usando índice e comprimento positivo: \ n", $ string, "\ n";
#Rplace a substring usando índice negativo e valor de comprimento positivo
$ substituir1 = substr ($ string, -11, 11, "script");
Imprima "A sequência substituída usando índice negativo e comprimento positivo: \ n", $ string, "\ n";
#Rplace a substring usando índice positivo e valor de comprimento negativo
$ substituir1 = substr ($ string, 0, -10, "");
Imprima "A sequência substituída usando índice positivo e comprimento negativo: \ n", $ string, "\ n";
Saída:
A saída a seguir aparecerá após a execução do código acima.
Exemplo-4: Extrair valor de uma string usando a função substr ()
Crie um arquivo Perl com o seguinte código que reduzirá o valor da data e o valor do tempo separadamente de uma string. Aqui, a variável $ dateTime foi usada para armazenar um valor de string que contém uma data e um valor de data específica. A primeira função substitut () foi usada para recuperar o valor da data e a segunda função substitutiva () foi usada para recuperar o valor do tempo da variável $ DATETIME. A saída de todas as funções substitutas () foi impressa posteriormente.
#!/usr/bin/perl
#Define o valor da string
$ dateTime = "17-06-22 05:30";
#Print O valor orginal
Imprimir "A string original é: \ n", $ dateTime, "\ n";
#Cute o valor da data da string
$ DATE = Substr ($ DateTime, 0, 8);
#Print o valor da data
imprimir "O valor da data é: \ n", $ data, "\ n";
#Cute o valor do tempo da string
$ time = substr ($ dateTime, 9);
#Print The Time Value
Imprimir "O valor do tempo é: \ n", $ time, "\ n";
Saída:
A saída a seguir aparecerá após a execução do código acima.
Conclusão
Os usos da função substr () com diferentes tipos de valores de argumento foram mostrados neste tutorial usando vários exemplos. Espero que este tutorial ajude os usuários do Perl a conhecer o objetivo de usar a função substitut () em Perl.