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
