POSIX::strftime nevraci UTF-8?

Jan Kasprzak kas na fi.muni.cz
Čtvrtek Únor 2 14:43:36 MET 2006


	Umite nekdo prinutit POSIX::strftime(), aby vysledny text
byly korektni znaky v UTF-8? Testovaci priklad:

$ cat test.pl
#!/usr/bin/perl -w

use utf8;
use POSIX qw(strftime setlocale);

setlocale (&POSIX::LC_TIME, "cs_CZ.UTF-8");
my $format = "%c\n";
my $datum =  strftime($format, localtime);
print "Vystup ", utf8::is_utf8($datum) ? "Je" : "Neni", " utf-8\n";
print join(" ", map { ord $_ > 127 ? ord $_ : $_ }
        split(//, $datum));

$ ./test.pl
Neni utf-8
196 140 t 194 160   2 . 194 160 195 186 n o r 194 160 2 0 0 6 , 194 160 1 4 : 3 8 : 1 9 194 160 C E T
$

Prislo by mi logicke, kdyby strftime() vracelo znaky v pripade, ze
formatovaci retezec je znakovy, nebo tak nejak.

-Y.

-- 
| Jan "Yenya" Kasprzak  <kas at {fi.muni.cz - work | yenya.net - private}> |
| GPG: ID 1024/D3498839      Fingerprint 0D99A7FB206605D7 8B35FCDE05B18A5E |
| http://www.fi.muni.cz/~kas/    Journal: http://www.fi.muni.cz/~kas/blog/ |
> Specs are a basis for _talking_about_ things. But they are _not_ a basis <
> for implementing software.                              --Linus Torvalds <


Další informace o konferenci Perl