Márcio, você já ouviu falar sobre o Splunk? http://www.splunk.com/product
O pessoal usa aqui usa bastante. Eu só dei uma olhadinha bem superficial. Você pode criar gráficos de monitoração muito facilmente, pode trabalhar com regex para fazer as análises dos logs, tudo simples, fácil e rápido. Obviamente tem uma curvinha de aprendizado para vencer, mas nada comparado à 'monstrinhos' como o Nagios, por exemplo(fãs de Nagios, me desculpem! É a minha opinião!). O Splunk veio, aparentemente, preencher essa 'lacuna'. Realmente bão ! 2013/6/18 Nilton OS <jnilti...@gmail.com> > my $test = '^(... .. ..:..:..) (\S+) \S+ ([a-zA-Z0-9]+): FILTER_LOGX: > from=\<(.*?)\> to=\<(.*?)\> subject=\<(.*?)\> size=([0-9]+) hostip=([^ ]*) > nrcpt=([0-9]+)'; > > > Testa algo assim: > > Se usar (\S+) ou \S+ vai começar a ter os resultados > > Dá uma olhada nesse script. > > http://pastebin.com/2Mnx9FAY > > > > > > > Em 18 de junho de 2013 19:33, Eduardo Verissimo > <everiss...@gmail.com>escreveu: > >> Que tal? >> >> ($codigo) =~ /^.*?\|.*?\|.*?\|(.*?)\|/ if /TIM/; >> >> Acho que ainda precisa de um ajuste... >> >> >> >> Em 18 de junho de 2013 19:02, Nilton OS <jnilti...@gmail.com> escreveu: >> >>> Dá um split no (|) >>> >>> No meu script tem um regex para pegar isso ou qualquer coisa na linha, >>> mas acho que ninguém ligou para minha resposta. >>> >>> >>> Em 18 de junho de 2013 18:34, Marcio - Google <marci...@gmail.com>escreveu: >>> >>> Marcio, não. >>>> >>>> Há duas informações na linha que tem que bater para ela ser >>>> selecionada, no exemplo: >>>> *|***********************|***** |*D0 C003*| *********************"TIM"* >>>> >>>> >>>> [...]'s >>>> >>>> Marcio >>>> >>>> ======================================== >>>> ########### Campanha Ajude o Marcio! ########### >>>> http://sosmarcio.blogspot.com.br/ >>>> http://www.vakinha.com.br/VaquinhaP.aspx?e=195793 >>>> ======================================== >>>> >>>> >>>> Em 18 de junho de 2013 16:59, Marcio Ferreira < >>>> marciodesouzaferre...@gmail.com> escreveu: >>>> >>>> if ( $line =~ /"TIM"/i ){ >>>>> #faz alguma coisa >>>>> } >>>>> >>>>> não funciona? >>>>> >>>>> http://perldoc.perl.org/perlre.html >>>>> http://sao-paulo.pm.org/artigo/2006/RegexPraticasTecnicasAvancadas >>>>> http://sao-paulo.pm.org/artigo/2006/ExpressoesRegulares >>>>> >>>>> >>>>> []s, >>>>> >>>>> Marcio Ferreira >>>>> skype: marcio.ferreir4 >>>>> (21) 8365-7768 >>>>> >>>>> >>>>> 2013/6/18 Marcio - Google <marci...@gmail.com> >>>>> >>>>>> Marcio (xará), >>>>>> >>>>>> Vou tentar com esse módulo. Já to ficando traumatizado com regex, faz >>>>>> tempo que apanho, to começando a achar que seja algum tipo de trauma, >>>>>> bloqueio, sei lá o que ... rsrsrs >>>>>> >>>>>> Giuliani, >>>>>> >>>>>> Obrigado pela dica, vou procurar o livro. >>>>>> >>>>>> Tiago, >>>>>> >>>>>> Vou ler a respeito, obrigado. >>>>>> >>>>>> >>>>>> >>>>>> [...]'s >>>>>> >>>>>> Marcio >>>>>> >>>>>> ======================================== >>>>>> ########### Campanha Ajude o Marcio! ########### >>>>>> http://sosmarcio.blogspot.com.br/ >>>>>> http://www.vakinha.com.br/VaquinhaP.aspx?e=195793 >>>>>> ======================================== >>>>>> >>>>>> >>>>>> Em 18 de junho de 2013 16:44, Marcio - Google >>>>>> <marci...@gmail.com>escreveu: >>>>>> >>>>>> Eduardo, >>>>>>> >>>>>>> O log é isso ai basicamente: >>>>>>> T|20/05/2013 08:12:03.391|Modem |D1 C015| RX : OK >>>>>>> T|20/05/2013 08:12:04.300|Modem |D0 C003| RX : +CREG: 001,016d,5e13 >>>>>>> T|20/05/2013 08:12:04.300|Modem |D0 C003| TX : AT+COPS? >>>>>>> T|20/05/2013 08:12:04.333|Modem |D0 C003| RX : +COPS: 000,000,"TIM" >>>>>>> T|20/05/2013 08:12:04.333|Modem |D0 C003| RX : OK >>>>>>> T|20/05/2013 08:12:04.582|Modem |D0 C001| TX : AT+CSQ >>>>>>> T|20/05/2013 08:12:04.582|Modem |D0 C002| TX : AT+CSQ >>>>>>> >>>>>>> Usando esse pedaço como exemplo, preciso localizar linhas assim: >>>>>>> *|***********************|***** |D0 C003| ********************"TIM" >>>>>>> >>>>>>> Entenda o * como qualquer coisa. Depois do quarto | os dados não tem >>>>>>> tamanho fixo, então esse "TIM" poderia estar mais pra frente como mais >>>>>>> pra >>>>>>> trás. >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> [...]'s >>>>>>> >>>>>>> Marcio >>>>>>> >>>>>>> ======================================== >>>>>>> ########### Campanha Ajude o Marcio! ########### >>>>>>> http://sosmarcio.blogspot.com.br/ >>>>>>> http://www.vakinha.com.br/VaquinhaP.aspx?e=195793 >>>>>>> ======================================== >>>>>>> >>>>>>> >>>>>>> Em 17 de junho de 2013 21:25, Eduardo Verissimo < >>>>>>> everiss...@gmail.com> escreveu: >>>>>>> >>>>>>>> Márcio, você pode dar um exemplo de qual a string de onde vai >>>>>>>> tirar a informação e qual informação quer extrair? >>>>>>>> >>>>>>>> >>>>>>>> Em 17 de junho de 2013 19:32, Marcio - Google >>>>>>>> <marci...@gmail.com>escreveu: >>>>>>>> >>>>>>>> Valeu pelas dicas e códigos pessoal. >>>>>>>>> Estou usando o File::Tail e parti do código que o Eduardo >>>>>>>>> compartilhou. >>>>>>>>> Só estou apanhando das regex pra encontrar o que quero. Não sei se >>>>>>>>> sou burro, mas tenho uma grande dificuldade de assimilar/entender >>>>>>>>> regex. >>>>>>>>> Vou tentar mais um pouco, se não conseguir jogo a toalha ... rsrsrs >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>> >>>>>>>> =begin disclaimer >>>>>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>>>>>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >>>>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>>>>>> =end disclaimer >>>>>>>> >>>>>>>> >>>>>>> >>>>>> >>>>>> =begin disclaimer >>>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>>>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >>>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>>>> =end disclaimer >>>>>> >>>>>> >>>>> >>>>> =begin disclaimer >>>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >>>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>>> =end disclaimer >>>>> >>>>> >>>> >>>> =begin disclaimer >>>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >>>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>>> =end disclaimer >>>> >>>> >>> >>> >>> -- >>> >>> .............................................................................. >>> *Com Deus todas as coisas são possíveis* ::: >>> LinuxPro<http://www.linuxpro.com.br> >>> >>> *"A qualidade nunca se obtém por acaso; ela é sempre o resultado do >>> esforço inteligente." (John Ruskin) >>> "A mente que se abre a uma nova ideia jamais volta ao seu tamanho >>> original" (Albert Einstein)* >>> >>> =begin disclaimer >>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>> =end disclaimer >>> >>> >> >> =begin disclaimer >> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >> =end disclaimer >> >> > > > -- > > .............................................................................. > *Com Deus todas as coisas são possíveis* ::: > LinuxPro<http://www.linuxpro.com.br> > > *"A qualidade nunca se obtém por acaso; ela é sempre o resultado do > esforço inteligente." (John Ruskin) > "A mente que se abre a uma nova ideia jamais volta ao seu tamanho > original" (Albert Einstein)* > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > -- André Garcia Carneiro Software Engineer (11)982907780
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
