Script que procura uma palavra em um arquivo.

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

[ Hits: 9.423 ]

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

Script para adicionar e remover usuários no IMSPECTOR

Listar arquivos de um diretório.

Remove comentarios de scripts

Shadow Post It

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


  

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