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

SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP

Automatizando o envio de arquivo p/ o FTP !

Pagerank Checker

processar Lynx.pl

Postando mensagem no Facebook com Perl

Nenhum comentário foi encontrado.