[Cascavel-pm] Comando cat | wc -l
Fabiano Reese Righetti
frighetti em cascavel.pm.org
Domingo Junho 25 07:24:36 PDT 2006
Alceu R. de Freitas Jr. escreveu:
> --- Patty Silva <ptfzs em yahoo.com.br> escreveu:
>
>> Pessoal.. qual comando do perl substitui o cat
>> (contar quantas linhas possui no arquivo).
>
> O cat só imprime o conteúdo de um arquivo para STDOUT.
> Se você ler o arquivo e imprimir o conteúdo dele você
> já fez um cat-perl. :-)
>
>> Eu preciso contar a quantidade de linhas mas nao
>> pode ser contagem linha a linha.. pois preciso da
>> quantidade antes da contagem linha linha acabar..
>> por isso pensei no cat | wc -l
>
> Tem mais de um jeito de fazer isso. Um jeito rápido
> (mas não elegante):
>
> my $file = 'arquivo.txt';
> open(IN, $file) or die "Cannot read $file: $!\n";
> my @content = <IN>;
> close(IN);
> my $lines = @content - 1;
Em vez de atribuir o conteúdo do arquivo a uma variável...
Poderia fazer assim também:
my $lines = $#{[ <IN> ]}+1;
--
Fabiano Reese Righetti
Mais detalhes sobre a lista de discussão Cascavel-pm