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.

• Download log_squid.pl
• Enviar nova versão

Esconder código-fonte

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

Descubra se seu e-mail ou conta foi "pwned"

Obtendo o IP público (Internet) usando o Perl

Gmail::SendMail - Enviando emails usando gmail

Avisar por e-mail se o IP da conexão ADSL mudar

Perl Script para DDoS

Nenhum coment�rio foi encontrado.