Localizador de palavras em arquivos nao binarios
Publicado por Carlos Carvalho 14/07/2004
[ Hits: 6.546 ]
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" ;
Obtendo a temperatura com Perl
Gmail::SendMail - Enviando emails usando gmail
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (9)
Problema ao atualizar archlinux nvidia [RESOLVIDO] (3)