Re: Fix UTF Encoding issue

Tuesday 04 December 2007 10:28:59 Ismail Dönmez yazmıştı:

Tuesday 04 December 2007 10:16:34 Martin Koegler yazmıştı:
[...]

quoted

print t("#öäü");
print t("#ÀöÌ");
print "\n";

How about this one, doesn't even use Encode, uses just built-in utf8
function :

[~]> cat test.pl
binmode STDOUT, ':utf8';

my $str = "#öäü";

if (utf8::valid($str))
{
    utf8::decode($str);
}

print $str."\n";

[~]> perl test.pl
#öäü

Following to_utf8 function works for me :

sub to_utf8 {
·   my $str = shift;

    if(utf8::valid($str))
    {
        utf8::decode($str);
    }
·
    return $str;
}

Regards,
ismail

-- 
Never learn by your mistakes, if you do you may never dare to try again.