Tuesday 04 December 2007 10:28:59 Ismail Dönmez yazmıştı:
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.
