Script para fazer buscas no arquivo de logs do squid

Publicado por Moises (última atualização em 09/07/2012)

[ Hits: 4.054 ]

Download log_squid.pl




Veja como é simples programar um script em perl que facilita a manipulação do arquivo de log do squid.

Você poderá utilizar este script, digitando uma palavra chave ou digitando alguma expressão regular do perl.

  



Esconder código-fonte

#Script criado por Moises Rodrigues
#E-mail [email protected]
#!/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);
}

Scripts recomendados

Gerir VirtualHosts do Apache

Pagerank Checker

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás

Baixar o Diário Oficial da União e salvar como um único PDF completo

Burlando o "Protetor de links" INVERTIDO para download grátis


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts