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