#Script criado por Moises Rodrigues
#E-mail brseek@gmail.com
#!/usr/bin/perl
use strict;
use warnings;
while (){
print "Digite uma palavra chave ou uma expressão regular\n";
my $search = <>;
chomp($search);
open(ABRIR, "/var/log/lusca/access.log" || die erro);
my @linhas = grep(/$search/,<ABRIR>);
my $count=0;
print "Digite a quantidade de resultados e exibir\n";
my $results = <>;
chomp ($results);
foreach (@linhas){
if($count <= $results){
print "Linha $count: $_\n";
$count++;
}
}
close(ABRIR);
}