Script que procura uma palavra em um arquivo.
Publicado por Sávio Reis Gonçalves 22/02/2005
[ Hits: 9.665 ]
Homepage: www.facebook.com/savinhoreis
Este Script procura uma palavra em um arquivo.
#!/usr/bin/perl
#Este script procura por uma palavra em um arquivo
#EMINEM1000
#2005
print " \n \n";
print "use $0 arquivo.txt palavra\n \n";
$nome_a = $ARGV[0];
$palavra_c = $ARGV[1];
print "Voce esta procurando por $palavra_c no arquivo $nome_a\n\n";
sleep(3);
$cont = 0;
&abre_arq($nome_a);
&procura($palavra_c);
print "encontrei $cont palavra(s) no $nome_a";
exit;
sub abre_arq{
open(ARQ, "<$nome_a") || die "error Voce nao indicou o arquivo \n";
@conteudo = <ARQ>;
close(ARQ);
}
sub procura{
foreach $linha(@conteudo){
   $cont++while $linha =~ /$_[0]/gi;
}
}
Inserindo sites em Lista do Squid
Manipulação de Arquivos Orientada a Objetos
script para localizar conteudo de arquivo
IA Turbina o Desktop Linux enquanto distros renovam forças
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
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Instalação dualboot Windows 11 e Debian 13 (0)
Programa fora de escala na tela do pc (33)
Eu queria adicionar a incon do wifi e deixa transparente no fluxbox no... (0)









