Re^2: Issue with unac

I tried this code , Yet it didnt work.

#!/usr/bin/perl
use strict;
use warnings;
use Text::Unaccent::PurePerl qw (unac_string);
use URI::Escape;

my $str = "Los-Cabos-Meliá";
#my $str = "This is a simple string";
#my $str = "Zo%C3%ABtry-Casa-del-   (Mar)  -Los-Cabos";
#my $str = "http%3A%2F%2Fwww.travelnow.com%2Fvtours%2F281578.xml";
#my $unescaped = uri_unescape($str);
#my $unaccented = unac_string('UTF-8',$unescaped);

my $unaccented = unac_string('UTF-8',$str);

print "Original : ".$str."\n";
#print "Unescape : ".$unescaped."\n";
print "Unaccent : ".$unaccented."\n";
[download]

the output is:

Original : Los-Cabos-Meli
Unaccent : Los-Cabos-Meli&#65533;
[download]

Comment on Re^2: Issue with unac_string() Select or Download Code

Replies are listed 'Best First'.
Re^3: Issue with unac_string() by Khen1950fx (Canon) on May 17, 2012 at 14:05 UTC
Ah! You're functioning better than I am:). This seems to work for me. Let me know if it works for you. `#!/usr/bin/perl -l use strict; use warnings; use Encode; require Encode::Detect; use Text::Unaccent::PurePerl qw(unac_string); use URI::Escape::XS qw/uri_escape uri_unescape/; my $str = "Los-Cabos-Meli\303\241"; my $safe = uri_escape($str, "\303\241"); $str = uri_unescape($safe); my $utf8 = decode('Detect', $str); binmode STDOUT, ":encoding(UTF-8)"; print "Origninal: $utf8"; my $unaccented = unac_string($utf8); print "Unaccented: $unaccented";` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Issue with unac_string()
by Khen1950fx (Canon) on May 17, 2012 at 14:05 UTC

#!/usr/bin/perl -l

use strict;
use warnings;
use Encode;
require Encode::Detect;
use Text::Unaccent::PurePerl qw(unac_string);
use URI::Escape::XS qw/uri_escape uri_unescape/;

my $str  = "Los-Cabos-Meli\303\241";
my $safe = uri_escape($str, "\303\241");
$str = uri_unescape($safe);

my $utf8 = decode('Detect', $str);
binmode STDOUT, ":encoding(UTF-8)";
print "Origninal: $utf8";

my $unaccented = unac_string($utf8);
print "Unaccented: $unaccented";
[download]

[reply]
[d/l]