[SP-pm] Monitorar Arquivo de Log

[Eduardo Verissimo]

Que tal?

($codigo) =~ /^.*?\|.*?\|.*?\|(.*?)\|/ if /TIM/;

Acho que ainda precisa de um ajuste...



Em 18 de junho de 2013 19:02, Nilton OS <jniltinho em 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 <marciorp em 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 <
>> marciodesouzaferreira em 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 <marciorp em 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 <marciorp em 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 <everissimo em 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 <marciorp em 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 em 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 em 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 em 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 em 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 em pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20130618/109bd0dc/attachment.html>