Contagem de linhas em Perl (= wc -l)
Publicado por Perfil removido (última atualização em 22/02/2011)
[ Hits: 8.594 ]
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...
#!/usr/bin/perl foreach $i (@ARGV) { open(ONE, "< $i"); @LINES = <ONE>; print "Arquivo: $i com " . scalar @LINES . " linhas.\n"; close(ONE); }
FTP – Script para adicionar e remover usuários via WEB
Script para adicionar e remover usuários no IMSPECTOR
Processa todos os SlackBuild's
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (0)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)
warsaw parou de funcionar após atualização do sistema (solução) (10)