Italo, BTW Entra no canal do DBIx::Class, irc.perl.org #dbix-class Eles já sabem da sua situação, vai ser muito mais rápido você lá do que eu intermediando.
Abs! 2015-09-30 10:42 GMT-03:00 Daniel de Oliveira Mantovani < daniel.oliveira.mantov...@gmail.com>: > Me falaram no canal para você tentar isso, > search({ "atr" => { "rlike" => '3B7F1300008031C0529999640569937083819000' > } }) > > 2015-09-30 10:30 GMT-03:00 Italo Gonçales <italo.gonca...@gmail.com>: > >> 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@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.mantov...@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.gonca...@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 < >>>> andregarciacarne...@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.gonca...@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@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 >>>>> >>>>> >>>> >>>> >>>> -- >>>> >>>> >>>> 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@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@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@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 > -- 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@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer