Localizador de palavras em arquivos nao binarios
Publicado por Carlos Carvalho 14/07/2004
[ Hits: 6.632 ]
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" ;
IPloc - Informações e localização de um determinado endereço IP
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
PIP3 - erro ao instalar módulo do mariadb para o Python (9)
É normal não gostar de KDE? (8)
O programa assinador digital (0)
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)









