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 que procura uma palavra em um arquivo.

Inserindo sites em Lista do Squid

Inserindo sites em Lista do Squid

Processa todos os SlackBuild's

Journaling de arquivos

Nenhum comentário foi encontrado.