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

Journaling de arquivos

Inserindo sites em Lista do Squid

Script para adicionar sites ao Squid

Apaga fila do Exim...

Script que procura uma palavra em um arquivo.

Nenhum comentário foi encontrado.