A função "open" Perl permite que você abra um arquivo em leitura, gravação ou no modo de acrescentar. Quando você lê o conteúdo de um arquivo , você pode salvar cada linha para um novo elemento em uma variável de lista Perl, então usar a lista em seu programa. No entanto , a função também lê o caractere de fim -de-linha e salva que na lista também. Se você não quiser preservar esse caráter , é preciso escrever uma função que corta -lo. Instruções
1

Abra um arquivo de programa Perl. Digite o seguinte código:

dados abertos ", < text.txt ";

A função "open" abre o arquivo fornecido pelo nome do arquivo na expressão e salva o conteúdo do identificador de arquivo "DATA" . O "<" especifica para abrir o arquivo em modo de "ler"
2

Digite o seguinte código: .

My @ linhas = ;

Esta linha cria uma lista Perl chamado "@ linhas" que guarda cada linha do arquivo como um novo elemento na lista , incluindo os caracteres de fim de linha.
3

Tipo o seguinte código:

sub trim ( $ ) {

meu $ string = shift;

$ string = ~ s /\\ s + $ //;

return $ string; .

}

Esta função usa uma expressão regular para remover caracteres à direita de espaço em branco de uma string passado para ele como parâmetro
4

Digite o seguinte código:

for ($ i = 0; $ i < @ linhas ; $ i + +) {

@ linhas [$ i] = trim ( @ $ linhas [ i ] );

}

Este código percorre cada elemento da lista , e passa para o "trim " a função que você criou , em seguida, substitui o elemento com os mesmos dados, exceto sem final de linha de caracteres.
5

Salve o arquivo de programa.