Script para fazer buscas no arquivo de logs do squid
Publicado por Moises (última atualização em 09/07/2012)
[ Hits: 4.484 ]
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); }
Descobrir operadora de celular
Nenhum comentário foi encontrado.
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
compilação samba 4.22 rock linux 9.5 (1)
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (2)
Posso instalar usar o grub sem ter linux instalado, para iniciar o win... (1)
Ocomon 6.0.1 - Problemas ao editar configurações estendidas (4)