[SP-pm] Encontrar valor em regex armazenada em banco de dados

[Italo Gonçales]

O código está assim:

my $regex = '3B7F1300008031C0529999640569937083819000';
use DDP; p $_ for $card_rs->search({ $regex => { RLIKE => 'atr' } })->all;

Porém, invertendo a ordem da estrutura para ` use DDP; p $_ for
$card_rs->search({ atr => { RLIKE => $regex } })->all; `, a saída fica:

[devel at develvm bin]$ DBIC_TRACE=1 perl findatr.pl
SELECT me.id_atr, me.atr, me.name, me.eletric_test, me.code, me.status,
me.microsiga1, me.microsiga2, me.observation FROM card_atr me WHERE ( atr
RLIKE ? ): '3B7F1300008031C0529999640569937083819000'



Em 30 de setembro de 2015 10:26, Daniel de Oliveira Mantovani <
daniel.oliveira.mantovani at gmail.com> escreveu:

> Italo,
>
> qual estrutura no dbic vc está usando que o resultado é "SELECT
> me.id_atr, me.atr, me.name, me.eletric_test, me.code, me.status,
> me.microsiga1, me.microsiga2, me.observation FROM card_atr me WHERE (
> 3B7F1300008031C0529999640569937083819000 RLIKE ? ): 'atr'" ?
>
> 2015-09-30 10:14 GMT-03:00 Italo Gonçales <italo.goncales at gmail.com>:
>
>> olá Carneiro,
>>
>> É porque a atr, é um dado que vem do chip do cartão, estou lendo o mesmo
>> a partir de uma leitora de smartcard, e buscando as informações sobre esta
>> atr no banco.
>>
>> Em 30 de setembro de 2015 10:09, Andre Carneiro <
>> andregarciacarneiro at gmail.com> escreveu:
>>
>>> Estou tentando entender porque voce está tentando buscar pelo conteúdo
>>> de 'atr' e nao pelo conteúdo de 'name'. De qq forma, creio que voce pode
>>> tentar usar RLIKE do próprio Mysql como o Vinciguerra sugeriu(ele foi mais
>>> rápido que eu... :P). Dependendo do tamanho dessa tabela, podería-se pensar
>>> em usar FTS, embora não pareça ser o caso.
>>>
>>>
>>>
>>> Atenciosamente
>>>
>>> 2015-09-30 8:38 GMT-03:00 Italo Gonçales <italo.goncales at gmail.com>:
>>>
>>>> Bom dia!
>>>>
>>>> Estou migrando uma aplicação java stand alone para WebService usando
>>>> Catalyst e MySQL, quando me deparei com um caso atípico do meu dia a dia. A
>>>> antiga base de dado ( em txt ) da aplicação java possui expressões
>>>> regulares nas chaves que estou utilizando para a busca ( e que é a única
>>>> que eu tenho ).
>>>>
>>>> Gostaria de saber se há alguma maneira de buscar um valor que
>>>> corresponda à regex armazenada no banco de dados?
>>>>
>>>> Testei pelo MySQL e funcionou, mas não consigo fazer o mesmo select no
>>>> perl.
>>>>
>>>> Segue busca de exemplo:
>>>>
>>>> mysql> SELECT * FROM card where '3B45978551FE119864' RLIKE atr;
>>>>
>>>> +----------------------------------+----------------------------------------+
>>>> | atr                                      | name
>>>>                 |
>>>>
>>>> +-----------------------------------+---------------------------------------+
>>>> | 3B[0-9]{4}8551FE119864  | S12-468                                  |
>>>>
>>>> Tentei usar o search_like, search com '-rlike' e search com '-like',
>>>> mas nada funcionou. Tentei inverter na query do search também, mas não deu
>>>> muito certo.
>>>>
>>>> Tentativas:
>>>> $card_rs->search({ atr => { -like => $atr } })->single;
>>>>
>>>> $card_rs->search({ atr => { -rlike => $atr } })->single;
>>>>
>>>> $card_rs->search({ $atr => { -rlike => atr } })->single;
>>>>
>>>> Gostaria de saber se há alguma outra maneira de fazer essa busca no
>>>> perl.
>>>>
>>>> Obrigado!
>>>>
>>>> --
>>>>
>>>> Att,
>>>>
>>>> Italo Gonçales
>>>> Perl Developer at Morpho
>>>> +55 12 98134 0318
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm at 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 at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>>
>>
>> Att,
>>
>> Italo Gonçales
>> Perl Developer at Morpho
>> +55 12 98134 0318
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
>
> --
> Thank you very much!
>
> -dom
>
> --
>
> Daniel de Oliveira Mantovani
> Business Analytic Specialist
> Perl Evangelist /Astrophysics hobbyist.
> +55 11 9 8538-9897
> XOXO
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 


Att,

Italo Gonçales
Perl Developer at Morpho
+55 12 98134 0318
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20150930/44be488b/attachment.html>