Este script serve para localizar conteudo de arquivo.
Não e de minha autoria mas acho o mesmo muito util.

• Download acha
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl

open(FIND, "find . -print |") || die "Nao pode rodar ACHA: $!\n";

FILE:
while ($filename = <FIND>) {
  chop $filename;
  next FILE unless -T $filename;
  if (!open(TEXTFILE, $filename)) {
    print STDERR "Nao pode abrir $filename -- continuando ...\n";
    next FILE;
  }
  while (<TEXTFILE>) {
    foreach $word (@ARGV) {
      if (index($_, $word) >= 0) {
        print $filename, "\n";
        next FILE;
      }
    }
  }
}

Usando ARGV como login

Compara colunas

getter

Eliminando caracteres indesejados

Contagem de linhas em Perl (= wc -l)

Nenhum comentário foi encontrado.