Função Perl Chomp

"O função chomp () é uma função integrada de Perl para remover o caractere da nova linha (\ n) do final da string e o número de caracteres de nova linha removidos por esta função. Esta função pode ser usada no script quando requer a leitura dos dados da string após a remoção do personagem Newline. O valor de string específico pode ser removido do texto usando o função chomp () que é armazenado no $/ ($ Input_record_separator). Perl tem outra função interna nomeada cortar() Isso remove o último personagem dos dados da string, que podem ser um personagem de nova linha ou qualquer outro personagem. Os usos do função chomp () e as diferenças entre o funções chomp () e chop () foram mostrados neste tutorial.”

Sintaxe

Diferentes sintaxes da função chomp () são mostradas abaixo.

chomp

A sintaxe acima é usada para remover a nova linha do valor da variável $ _.

chomp (string)

A sintaxe acima é usada para remover a nova linha da variável string.

chomp (matriz)

A sintaxe acima é usada para remover a nova linha da variável de matriz.

Esta função retorna o número de novas linhas removidas da variável escalar ou string, ou matriz. Diferentes usos da função chomp () foram mostrados na próxima parte do tutorial.

Exemplo 1: Remova a nova linha da variável escalar

Crie um arquivo Perl com o seguinte código que removerá a nova linha do escalar variável. Um valor de string foi definido na variável escalar aqui. O função chomp () foi usado sem nenhum argumento neste código para remover a nova linha da variável escalar. O valor do escalar A variável foi impressa antes e depois de usar o função chomp ().

Imprima "O valor da variável escalar antes de chomp (): \ n";
# Defina a variável especial $ _
$ _ = "Linuxhint \ n";
# Imprima o $ _ antes de remover a Newline
imprimir;
# Remova a nova linha do valor de $ _
$ total = chomp;
# Imprima o número total de caracteres removidos
imprimir "caractere total removido: $ total \ n";
Imprima "O valor da variável escalar após chomp (): \ n";
# Imprima o $ _ depois de remover a Newline
imprimir;

Saída

A saída a seguir aparecerá após a execução do código acima.

Exemplo-2: Remova a nova linha da variável string

Crie um arquivo Perl com o seguinte código que removerá a nova linha do valor da string. Uma variável de string com 2 novos caracteres foi declarada no código. O primeiro função chomp () removerá o último personagem da Newline e o segundo função chomp () removerá o próximo personagem da Newline. O terceiro função chomp () não removerá nada.

# Defina uma variável de string com dois caracteres de nova linha
$ str = "Programação perl \ n \ n";
# Remova a nova linha da string se existir
$ num = chomp ($ str);
Imprima "O valor da string após a remoção da Newline: $ STR \ n";
# Imprima o número total de caracteres removidos
imprimir "Total Remoted Caracter (s): $ num \ n";
# Remova a nova linha da string se existir
$ num = chomp ($ str);
Imprima "O valor da string após a remoção da Newline: $ STR \ n";
# Imprima o número total de caracteres removidos
imprimir "Total Remoted Caracter (s): $ num \ n";
# Remova a nova linha da string se existir
$ num = chomp ($ str);
Imprima "O valor da string após a remoção da Newline: $ STR \ n";
# Imprima o número total de caracteres removidos
imprimir "Total Remoted Caracter (s): $ num \ n";

Saída

A saída a seguir aparecerá após a execução do código acima.

Exemplo 3: Remova a nova linha das múltiplas variáveis

Crie um arquivo Perl com o seguinte código que removerá a nova linha das múltiplas variáveis. Duas variáveis ​​de string com newline foram definidas no código. Em seguida, o chomp () foi usado no código para remover as novas linhas de ambas as variáveis. A saída do função chomp () foi impresso mais tarde.

# Defina as várias variáveis ​​de string
$ idioma = "perl \ n";
$ website = "Linuxhint.com \ n ";
# Use a função de chomp para várias variáveis
$ output = chomp ($ idioma, $ website);
# Imprima as variáveis ​​picadas com outros dados de string
Imprima "Learn $ idioma do $ site \ n";
# Imprima o valor retornado pela função Chomp
imprimir "Número total de nova linha removida: $ output \ n";

Saída

A saída a seguir aparecerá após a execução do código acima.

Exemplo-4: Remova a string específica de outra string

O chomp () pode ser usado para remover um personagem ou string específico definindo a variável de separador de registro de entrada (IRS). Crie um arquivo Perl com o seguinte código que removerá a palavra “dica”De uma variável de string. Uma variável de string foi definida no código que contém a palavra “dica”3 vezes no final da corda. A variável do IRS foi usada aqui para armazenar a palavra “dica.Em seguida, a função chomp () foi chamada 3 vezes para remover a palavra “dica”Da corda principal.

# Defina uma variável de string
$ str = "Aprenda perl com linuxhinthinthint";
# Defina o separador de registro de entrada
$/ = 'dica';
# Imprima a variável da string antes de usar o chomp
imprimir $ str, "\ n";
chomp $ str;
# Imprima a variável da string após aplicar o Chomp pela primeira vez
imprimir $ str, "\ n";
chomp $ str;
# Imprima a variável String após aplicar o Chomp pela segunda vez
imprimir $ str, "\ n";
chomp $ str;
# Imprima a variável da string após aplicar o Chomp pela terceira vez
imprimir $ str, "\ n";

Saída

A saída a seguir aparecerá após a execução do código acima.

Exemplo 5: Remova uma nova linha de cada valor de matriz

Crie um arquivo Perl com o seguinte código que removerá a nova linha de cada valor de uma matriz. O função chomp () tem sido usado com a matriz para remover a nova linha dos valores da matriz. Os valores da matriz antes e depois de remover a nova linha e a saída do função chomp () será impresso após a execução do código.

# Defina uma matriz de valores de string com nova linha
$ flores = ["rosa \ n", "lily \ n", "flor do sol \ n", "cosmos \ n", "Daisy \ n"];
# Imprima os valores principais da matriz
Imprima "Os valores da matriz antes de usar o chomp: \ n @$ flores \ n";
# Remova a nova linha de cada valor de matriz
$ output = chomp @$ flores;
# Imprima a saída da função Chomp
imprimir "Total NewLine removido: $ output \ n";
# Imprima os valores de matriz modificados
Imprima "Os valores da matriz após o uso de chomp: \ n @$ flores \ n";

Saída

A saída a seguir aparecerá após a execução do código acima.

Conclusão

A maneira de usar a função chomp () para remover a nova linha ou a string específica da variável mostrou aqui usando vários exemplos Perl. Espero que este tutorial ajude os usuários do Perl a conhecer o uso dessa função corretamente.