Contagem de linhas em Perl (= wc -l)
Publicado por Perfil removido (última atualização em 22/02/2011)
[ Hits: 8.610 ]
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); }
Manipulação de Arquivos Orientada a Objetos
Conversão de textos UTF-8 para ISO8859-1
Script para adicionar sites ao Squid
script para localizar conteudo de arquivo
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
GLPI Mescla computadores com as mesmas informações e não separa (0)
E aí? O Warsaw já está funcionando no Debian 13? (10)
Problema com o Centro de Aplicativos Ubuntu 25.04 (5)
Impressora Elgin/Bematech - MP4200HS - Via serrvidor CUPS (0)