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