Localizador de palavras em arquivos nao binarios
Publicado por Carlos Carvalho 14/07/2004
[ Hits: 6.587 ]
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" ;
Perl Check Port - Entenda melhor os sockets
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Como instalar o Telegram Desktop no Ubuntu 24.04
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
Primeiras impressões do Debian 13 (8)
como resolver o problema de som do linux mint mate (4)