[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