Script para fazer buscas no arquivo de logs do squid
Publicado por Moises (última atualização em 09/07/2012)
[ Hits: 4.594 ]
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.
#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); }
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Buscar Traduções no Google Translate
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Converter os repositórios Debian para o novo formato com as chaves
Instalando Spotify no Debian 13
Realizar overclock no Miyoo Mini (plus ou normal)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (4)
Erro na inicialização do Debian como resolver (2)
Como desinstalar o GIMP? [RESOLVIDO] (1)