Escrever programas na Prática de Extracção e linguagem de script Idioma do relatório quando você precisa de uma ferramenta que pode rapidamente automatizar a manipulação de strings , proporcionar interação do usuário e entregar formatação aceitável. Retornos de carro tendem a interromper a formatação de entrada do usuário e saída do programa Perl para que as cadeias de texto olhar confuso e difícil de seguir. Use a palavra-chave " chomp " para remover os retornos de carro e limpar a entrada e saída do programa. Coisas que você precisa 
 computador com a linguagem de programação Perl intérprete instalado 
 Perl arquivo de script que contém a seqüência de texto para o qual deseja um retorno de carro removido 
 Show Mais instruções 
 1 
 Abra uma janela de terminal de linha de comando em um computador que permitiu Perl. Abra o arquivo de script Perl que contém uma seqüência de texto para que o retorno de carro deve ser removido. 
 2 
 Use as setas do teclado para posicionar o cursor imediatamente após a linha em que uma variável é atribuída a cadeia de texto como o seu valor. Por exemplo, se você deseja remover o retorno de carro a partir da string " Test" abaixo : 
 
 $ myVariable = " Test \\ n"; 
 
 Adicionar " chomp " linha de função para o texto variável de seqüência imediatamente após a atribuição seqüência de texto como está escrito abaixo : 
 
 chomp ( $ myVariable ); 
 3 
 Use as setas para posicionar o cursor depois de uma linha que aceita entrada do usuário e escrever uma linha de função " chomp " para a variável de entrada seqüência de texto para remover o retorno de carro de entrada do usuário para limpar a formatação. Por exemplo : 
 
 while ( usuário $ input =  ) { 
  print " O usuário digitou ' $ input ' \\ n"; 
 
 durar if ($ eq entrada ''); } 
 
 
 
 incluirá o retorno de carro com a entrada do usuário quando o usuário pressiona a tecla "Enter " . Para remover o retorno de carro , inserir a função " chomp ", como escrito abaixo : 
 
 while ( usuário $ input =  ) { 
  chomp ( $ input ); 
 
 print " O usuário digitou ' $ input ' \\ n"; 
 
 durar if ( $ entrada eq ''); }