Your IP : 216.73.216.1

Current Path : /usr/share/doc/perl-Text-Fuzzy/examples/
Upload File :
Current File : //usr/share/doc/perl-Text-Fuzzy/examples/unicode.pl

#!/usr/bin/perl
use warnings;
use strict;
use Text::Fuzzy;
use utf8;
my $tf = Text::Fuzzy->new ('あいうえお☺');
print $tf->distance ('うえお☺'), "\n";