Script que procura uma palavra em um arquivo.

Descrição

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;
}
}