Script que procura uma palavra em um arquivo.

Publicado por Sávio Reis Gonçalves 22/02/2005

[ Hits: 9.391 ]

Homepage: www.facebook.com/savinhoreis

Download x.pl




Este Script procura uma palavra em um arquivo.

  



Esconder código-fonte

#!/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;
}
}

Scripts recomendados

Processa todos os SlackBuild's

Alterar senha no shadow

Inserindo sites em Lista do Squid

Script para adicionar sites ao Squid

arruma_nomes.pl


  

Comentários
[1] Comentário enviado por dcyrillo em 24/04/2007 - 11:44h

Olá,

Existe uma maneira de reformular o script para que ele procure uma palavra em vários arquivos ou todos os arquivos em uma determinada pasta?


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts