Localizador de palavras em arquivos nao binarios
Publicado por Carlos Carvalho 14/07/2004
[ Hits: 6.526 ]
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" ;
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
IPloc - Informações e localização de um determinado endereço IP
SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Como Instalar o Microsoft Teams no Linux Ubuntu
Músicas de Andrew Hulshult no DOOM (WAD)
Instalar o Apache, MySQL e PHP no Oracle Linux 8
Bloqueando telemetria no Deepin 23.1
Como converter imagens PNG/JPEG para SVG em linha de comando
Mudar ícone do favorito "encerrar sessão" do Debian 12.10, c... (3)
Java é uma linguagem de brinquedo? (9)