From: Ismail Dönmez <ismail@pardus.org.tr>
Date: Tue, 04 Dec 2007 08:28:59 GMT
Subject: Re: Fix UTF Encoding issue
Message-ID: <200712041028.59185.ismail@pardus.org.tr>
In-Reply-To: <20071204081634.GD31042@auto.tuwien.ac.at>

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
#öäü

Regards,
ismail

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