Eu uso
use String::Approx 'amatch';
print if amatch("foobar");
my @matches = amatch("xyzzy", @inputs);
my @catches = amatch("plugh", ['2'], @inputs);
Em Qui, 2012-06-28 às 18:20 -0300, Stanislaw Pusep escreveu:
>
> Um dos exemplos de aplicação prática dela é o utilitário
> 'agrep' (approximate grep).
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
