[Cascavel-pm] Comando cat | wc -l

Fernando Oliveira fernandocorrea em gmail.com
Sexta Junho 23 12:03:51 PDT 2006


perl -ne 'END{print$.}' arquivo

On 6/23/06, Alceu R. de Freitas Jr. <glasswalk3r em yahoo.com.br> wrote:
>
> --- 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/
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
[]'s Fernando


Mais detalhes sobre a lista de discussão Cascavel-pm