<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: 12pt">
<DIV>usamos por aqui</DIV>
<DIV> </DIV>
<DIV>use Text::DoubleMetaphone qw( double_metaphone ); # casamento
fonetico</DIV>
<DIV> </DIV>
<DIV>use String::Approx 'adist';</DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV style="FONT: 10pt tahoma">
<DIV><FONT size=3 face=Calibri></FONT> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=creaktive@gmail.com
href="mailto:creaktive@gmail.com">Stanislaw Pusep</A> </DIV>
<DIV><B>Sent:</B> Monday, July 02, 2012 9:24 AM</DIV>
<DIV><B>To:</B> <A title=rio-pm@pm.org href="mailto:rio-pm@pm.org">Perl Mongers
Rio de Janeiro</A> </DIV>
<DIV><B>Cc:</B> <A title=saopaulo-pm@mail.pm.org
href="mailto:saopaulo-pm@mail.pm.org">saopaulo-pm@mail.pm.org</A> </DIV>
<DIV><B>Subject:</B> Re: [Rio-pm] :engine::TRE</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">Bom
dia Thiago!
<DIV>Obrigado pela dica, não conhecia o String::Approx. Pelo meu rápido RTFS,
usa o mesmo algoritmo que o re::engine::TRE (<A
href="https://en.wikipedia.org/wiki/Bitap">https://en.wikipedia.org/wiki/Bitap</A>).</DIV>
<DIV>Também fiz a coisa mais óbvia, que devia ter feito antes de mandar o email
para a lista: olhei no CPAN Testers, e percebi que o módulo em questão só
funcionava até Perl v5.10. Entrei em contato com o autor, e ele confirmou que as
"entranhas" do Perl tornaram-se incompatíveis a partir do v5.12.</DIV>
<DIV>Verei o que faço a respeito; o módulo me pareceu deveras útil.<BR
clear=all><BR>ABS()<BR><BR><BR><BR>
<DIV class=gmail_quote>2012/6/29 Thiago Glauco <SPAN dir=ltr><<A
href="mailto:thiagoglauco@ticursos.net"
target=_blank>thiagoglauco@ticursos.net</A>></SPAN><BR>
<BLOCKQUOTE
style="BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex; PADDING-LEFT: 1ex"
class=gmail_quote>Eu uso<BR> use String::Approx 'amatch';<BR><BR>
print if amatch("foobar");<BR><BR> my @matches = amatch("xyzzy",
@inputs);<BR><BR> my @catches = amatch("plugh", ['2'],
@inputs);<BR><BR><BR>Em Qui, 2012-06-28 às 18:20 -0300, Stanislaw Pusep
escreveu:<BR>
<DIV class=im>><BR>> Um dos exemplos de aplicação prática dela é o
utilitário<BR>> 'agrep' (approximate
grep).<BR><BR></DIV>_______________________________________________<BR>Rio-pm
mailing list<BR><A href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</A><BR><A
href="http://mail.pm.org/mailman/listinfo/rio-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/rio-pm</A><BR></BLOCKQUOTE></DIV>
<DIV> </DIV></DIV>
<P>
<HR>
_______________________________________________<BR>Rio-pm mailing
list<BR>Rio-pm@pm.org<BR>http://mail.pm.org/mailman/listinfo/rio-pm</DIV></DIV></DIV></BODY></HTML>