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