Esse programa em Perl procura por palavras especificadas pelo usuario a partir do diretorio informado (recursivamente) salvando um log no diretorio $HOME.

Util quando nao lembramos que maldito arquivo configura maldita qualquer coisa :)

• Download localiza.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl -w
# Carlos Carvalho <carlos_lnx@ibest.com.br>
# localiza.pl


use strict ;
use Env;
open STDERR, ">/dev/null" ;
print "Entre com a palavra chave:\n";
my $chave = <STDIN>; chomp($chave);
print "Entre com o diretorio a partir do qual voce ira buscar:\n";
my $dir = <STDIN>; chomp($dir);
print ("Aguarde...\n");
fork and exit;
my @var = `find $dir`;
my $DOC = "$HOME/localiza.out";
open(FILE, ">>$DOC");
foreach my $outside (@var) {
        open(TEMP, "<$outside") ;
        while (<TEMP>) {
                  if ($_=~/$chave/) {
                        print(FILE $outside);
                  }
        }
}
close(FILE);
close(TEMP);
print "Busca finalizada. Veja em: $HOME/localiza.out\n" ;

Descobrir operadora de celular

Automatizando o envio de arquivo p/ o FTP !

Web crawler simples em Perl

Script para X-chat

Obtendo a temperatura com Perl