Contagem de linhas em Perl (= wc -l)

Publicado por Perfil removido (última atualização em 22/02/2011)

[ Hits: 8.318 ]

Download 4923.xx




Script muito tosco com 8 linhas (deve ser possível escrever isso em menos linhas), que criei enquanto estou aprendendo a programar em Perl. A partir de hoje, minha linguagem favorita número 2. A número 1 é shell script, a 3 é Tcl/Tk e a 4 é Python.

Espero que gostem... inseri esta função em um script meu recente e está funcionando bacana...

Escrevam assim:

xx *

e vejam qualquer porcaria sendo aberta e lida. Erros: ele abre diretórios e binários, o que torna sua saída pouco confiável, mas vale como exercício...

  



Esconder código-fonte

#!/usr/bin/perl

foreach $i (@ARGV) {
   open(ONE, "< $i");
   @LINES = <ONE>;
   print "Arquivo: $i com " .  scalar @LINES . " linhas.\n";
   close(ONE);
}

Scripts recomendados

Conversão de textos UTF-8 para ISO8859-1

Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada

Adiciona-Altera senhas/usuarios no sistema

Listar arquivos de um diretório.

Apaga fila do Exim...


  

Comentários
[1] Comentário enviado por ramonzitos em 25/02/2011 - 21:23h

Em Ruby:
#!/usr/bin/env ruby
(Dir.glob("#{String(ARGV[0])}*")).each{|i| puts "Arquivo #{i} com #{(File.open(i, 'r').readlines).length}" if File.directory?(i) == false}

Nao lista diretorio

ps: execute com ./linha.rb "*", pois o ruby interpreta * como 8

[2] Comentário enviado por /bin/laden em 29/03/2011 - 08:39h

Em sed:

sed -n '$=' arquivo


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts