Re: Fix UTF Encoding issue
- From
- Ismail Dönmez <ismail@pardus.org.tr>
- Date
- Dec 4, 2007, 08:28 UTC
- 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.