[Cascavel-pm] Comando cat | wc -l

[Alceu R. de Freitas Jr.]

--- 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;

print "File $file has $lines lines\n";

Eu não testei, mas deve funcionar.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/