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

Script para adicionar sites ao Squid

Alterar senha no shadow

Script que procura uma palavra em um arquivo.

Inserindo sites em Lista do Squid

Listar arquivos de um diretório.

Nenhum coment�rio foi encontrado.