Prekodovani textu v XML balicich (stale nefunguje)

[Honza Pazdziora]

On Sun, Oct 29, 2000 at 09:02:59PM +0100, Tomas Zeman wrote:
> 
> Nemohl by jste mi prosim nekdo poslat zdrojak, jak

Byste.

> UTF-8 co dostanu z XML::Parse/XML::RSS prevect na iso2

	#!/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);
	}

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
------------------------------------------------------------------------