utf8 -> latin2(e.g)

[Rostislav Matl]

>#!/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__
> 
Ano, diky, podobne jsem to po doinstalaci Unicode::Map resil i ja
(obavam se, ze to, co je tady napsane, tak jak je napsane, mi nefungovalo):

use MIME::Base64;                                                               
use Unicode::Map;                                                               
use Unicode::String;

sub utf8str_conv                                                               
                 
{                                                                              
  my ($string, $output_encoding) = @_;                            
            
  my $map = Unicode::Map->new($output_encodin;         
  my $string_in_utf16 = Unicode::String -> new($string);                       
  return $map -> from_unicode($string_in_utf16->utf16);                        
}    

+-----------------------------------------------------------------------------+
|  ROSTISLAV MATL, student of Masaryk University - Faculty of Informatics     |
|  e-mail: xmatl na fi.muni.cz      WWW: http://www.fi.muni.cz/~xmatl/index.html | 
|  ICQ#: 17058749                                                             |
+-----------------------------------------------------------------------------+