Contagem de linhas em Perl (= wc -l)
Publicado por Perfil removido (última atualização em 22/02/2011)
[ Hits: 8.395 ]
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); }
Adiciona-Altera senhas/usuarios no sistema
Script para adicionar sites ao Squid
Listar arquivos de um diretório.
Compilando um Kernel customizado a partir do código-fonte do Kernel do Debian 12
Gentoo binário ao lado da sua distro atual
Documentação para a função de carregamento saudável da bateria do notebook Acer Aspire 5 no Linux
Instalando Google Chrome no Linux Mint 22
O Que Fazer Após Instalar Linux Mint 22
Instalando o Dolphin e deixando-o "pretinho" acompanhando o tema escuro do Gnome-Shell
Meu computador não aceita o Linux de nenhuma maneira (8)
Meu computador está travando (13)
Máximo que meu PC suporta de gigas no HD ou ssd. (5)
Error no such device : 3C8E-127A. error: disco 'hd1,gpt... não e... (3)