Script para fazer buscas no arquivo de logs do squid
Publicado por Moises (última atualização em 09/07/2012)
[ Hits: 4.629 ]
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
Obtendo a temperatura com Perl
Synner Novo Sys(TCP) Flooder em Perl
Nenhum comentário foi encontrado.
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como listar os arquivos em "bloquin... [RESOLVIDO] (5)
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (1)
Como vencer a procrastinação? (8)
Adicional de convivdado em linux somente linha de comando (3)