Localizador de palavras em arquivos nao binarios

Publicado por Carlos Carvalho 14/07/2004

[ Hits: 6.414 ]

Download localiza.pl




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 :)

  



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

Scripts recomendados

processar Lynx.pl

API do Bing para traduzir textos

Avisar por e-mail se o IP da conexão ADSL mudar

Obtendo a temperatura com Perl

Script para X-chat


  

Comentários
[1] Comentário enviado por nictuku em 07/01/2005 - 04:41h

Falando em utilidade, esta é uma alternativa rápida usando grep:

# cd /dir ; grep "expressao" * -r

Da até pra usar expressões regulares, se usar egrep. Se utilizar "-a" ele procura por arquivos binários também.

- Yves Junqueira


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts