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

Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada

Processa todos os SlackBuild's

Script para adicionar sites ao Squid

Alterar senha no shadow

Remove comentarios de scripts

Nenhum comentário foi encontrado.