Re: Fix UTF Encoding issue

From: Ismail Dönmez <ismail@pardus.org.tr>
Date: Dec 4, 2007, 08:33 UTC
Message-ID: <200712041033.39579.ismail@pardus.org.tr>
In-Reply-To: <200712041028.59185.ismail@pardus.org.tr>

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

Show 24 quoted lines

> Tuesday 04 December 2007 10:16:34 Martin Koegler yazmıştı:
> [...]
>
> > 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.