Localizador de palavras em arquivos nao binarios
Publicado por Carlos Carvalho 14/07/2004
[ Hits: 6.349 ]
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 :)
#!/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" ;
Pesquisar palavras no Diário Oficial da União
DOOM clássico (quase) vanilla e um pouco melhorado
Mamãe, quero descompactar e também compactar arquivos no terminal!
Latte Dock, um dock de aplicativos com várias opções de configuração para o KDE Plasma
Instalando Microsoft Edge no Debian 12
Instalação do Librewolf no Ubuntu/Mint (e em outras distros)
Adaptador wifi archer T2U nano não funciona no Debian (3)
Não consigo instalar o chrome no linux gutta(notebook) (9)
Smartphone com Android.cartao SD perde arquivos sozinho. (8)