utf8 -> latin2(e.g)

[Honza Pazdziora]

On Mon, Aug 06, 2001 at 04:30:37PM +0200, Rostislav Matl wrote:
>  
>  Jak se nejlepe vyporadat s prevodem utf8 do neceho jineho ?
>  Convert::Recode je ponekud stupidni a s Unicode:: na to zase
>  nejak nemuzu prijit ja.
>  Za jakoukoliv radu vedouci k reseni jsem velmi vdecen a uz predem
>  dekuji.

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

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, DBD::XBase.
Will be off email until Aug 15 -- please don't expect responses until then.