Cz::Cstocs a UTF-8
Jan Kasprzak
kas na fi.muni.cz
Úterý Duben 19 15:25:48 MEST 2005
Mam takovy problem s konverzi z/do UTF-8. Mam "legacy" aplikace,
ktere pouzivaji Cz::Cstocs a potrebuju je postupne migrovat na novejsi
Perl. No a automaticke testy mi odhalily problem, ze konverze do UTF-8
nenastavuje UTF-8 flag, coz pak dale vadi.
------------------------------------------------
#!/usr/bin/perl -w
use Cz::Cstocs;
use Encode;
my $iue = sub { Encode::decode('iso-8859-2', shift); };
my $iuc = new Cz::Cstocs 'il2', 'utf8';
my $data = 'ì¹èø¾ø¾ýáíé';
# Na predchozim radku je horni rada ceske klavesnice (9 znaku od e s hackem
# po e s carkou).
print join ' ', map { ord } split //, $data; print "\n";
print join ' ', map { ord } split //, &$iuc($data); print "\n";
print join ' ', map { ord } split //, &$iue($data); print "\n";
------------------------------------------------
No a ted je otazka, jak tohle resit, nejlepe tak, abych nemusel
menit ty aplikace, ale jen Cz::Cstocs (ktere mam na systemu s novejsim
Perlem asi jine, takze zmena nevadi).
-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/ Czech Linux Homepage: http://www.linux.cz/ |
-- Yes. CVS is much denser. --
-- CVS is also total crap. So your point is? --Linus Torvalds --
Další informace o konferenci Perl