Prekodovani textu v XML balicich (uz nefunguje :-))

[Tomas Zeman]

> 
> Byste.

to mam z toho koukani do dokumentace Unicode baliku
(celkem asi 4 hodiny)
 
> 	#!/usr/bin/perl -w
> 
> 	use Unicode::String qw(utf8);
> 	use Unicode::Map8;
> 	my $l2_map = Unicode::Map8->new("latin2") or die;
> 
> 	while (<>) {
> 		my $u = utf8($_);
> 		print $l2_map->to8($u->utf16);
> 	}
> 

Diky moc, funguje to.

Ale je to zajimavy postup - XML mam v iso2, nejdrive
to balik XML::Parse prevede do UTF-8, pak ja to jeste
radsi prevedu jednou do UTF-8, pak to prevedu do
UTF-16 a z toho zase spatky do iso2.

Je to komplikovany, ale funguje to :-)

Tomas

www : http://moje.triky.cz
email : xzemt02 na sorry.vse.cz




__________________________________________________
Do You Yahoo!?
Yahoo! Messenger - Talk while you surf!  It's FREE.
http://im.yahoo.com/