<div dir="ltr">Bom dia!<div><br></div><div>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 ).</div><div><br></div><div>Gostaria de saber se há alguma maneira de buscar um valor que corresponda à regex armazenada no banco de dados?</div><div><br></div><div>Testei pelo MySQL e funcionou, mas não consigo fazer o mesmo select no perl.</div><div><br></div><div>Segue busca de exemplo:</div><div><br></div><div>mysql> SELECT * FROM card where '3B45978551FE119864' RLIKE atr;</div><div><div>+----------------------------------+----------------------------------------+</div><div>| atr                                      | name                                       |</div><div>+-----------------------------------+---------------------------------------+</div><div>| 3B[0-9]{4}8551FE119864  | S12-468                                  |</div></div><div><br></div><div>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.</div><div><br></div><div>Tentativas:</div><div>$card_rs->search({ atr => { -like => $atr } })->single;<br></div><div><br></div><div>$card_rs->search({ atr => { -rlike => $atr } })->single;<br></div><div><br></div><div>$card_rs->search({ $atr => { -rlike => atr } })->single;<br></div><div><br></div><div>Gostaria de saber se há alguma outra maneira de fazer essa busca no perl.</div><div><br></div><div>Obrigado!<br clear="all"><div><br></div>-- <div class="gmail_signature"><div dir="ltr"><div><br></div><div>Att,</div><div><br></div><div>Italo Gonçales</div><div>Perl Developer at Morpho</div><div>+55 12 98134 0318</div></div></div>
</div></div>