Script que procura uma palavra em um arquivo.

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

[ Hits: 9.400 ]

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

Listar arquivos de um diretório.

Remove comentarios de scripts

Conversão de textos UTF-8 para ISO8859-1

getter

Manipulação de Arquivos Orientada a Objetos


  

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