Contagem de linhas em Perl (= wc -l) [Perl]

Contagem de linhas em Perl (= wc -l)

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

[ Hits: 8.786 ]

Download 4923.xx

0 0

Denuncie Favoritos Indicar

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

FTP – Script para adicionar e remover usuários via WEB

Usando ARGV como login

Eliminando caracteres indesejados

Remove comentarios de scripts

Alterar senha no shadow

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

0 0