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...

• Download 4923.xx
• Enviar nova versão

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);
}

Inserindo sites em Lista do Squid

arruma_nomes.pl

move.pl

Manipulação de Arquivos Orientada a Objetos

script para localizar conteudo de arquivo