Programação  
 
Conhecimento computador >> Programação >> Programação Perl >> 
Como usar as linhas de um arquivo como uma lista em Perl
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.

Anterior :

Próximo : No
  Os artigos relacionados
·Comparação de Perl Com Python 
·Como ler a partir do meio de uma matriz em Perl 
·Como usar Ajax Com Perl 
·Como configurar o Perl em XAMPP 
·Como converter XML para PDF em Perl 
·Sobre a função Chr Perl 
·Como substituir Opções em Expressão Regular 
·Como Entrar para Perl Com Perforce 
·Como Ler Inteiros em Perl 
·Como fazer uma Caixa de Diálogo X11 rápida em Perl 
  Artigos em destaque
·Os cookies Vs . Sessões 
·Como ler DOSBox em Perl 
·Como adicionar um interruptor para um Silverlight App 
·Código PHP para inserir exclusivos Tag do título com …
·Como converter SGML ASN.1 
·Como usar o GDB Com Eclipse 
·Como usar Sprint F- PHP 
·Visualizando Applets no Netbeans 
·Como obter um valor selecionado em uma caixa de listage…
·C + + Tipos de Dados 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados