Contagem de linhas em Perl (= wc -l)
Publicado por Perfil removido (última atualização em 22/02/2011)
[ Hits: 8.588 ]
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); }
Inserindo sites em Lista do Squid
Script para adicionar e remover usuários no IMSPECTOR
Script para adicionar sites ao Squid
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
Git config não aplica configurações
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Linux mint só reproduz vídeos em navegadores se estiverem mutados [RES... (2)
Alerta Google Chrome 138.0.7204.10... (3)
Teclado n~ao escreve abnt2 (7)