Your IP : 216.73.216.74

Current Path : /proc/thread-self/root/usr/share/doc/perl-Text-Fuzzy/examples/
Upload File :
Current File : //proc/thread-self/root/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";