ISO8859 to T.61

[Rostislav Matl]

V nasledujicim skriptu se snazim prevest
UTF8 encoded string do T.61.

Zdalo se to snadne, dokud jsem to nezkusil -
- konverze do ISO-8859-2 je ok, ale kdyz tentys retezec prevedu do T.61,
  vsechny znaky s diakritikou z nej vypadnou.

Nenapadane nekoho, co delam spatne ? Me nic nenapada.

#!/usr/bin/perl -w

use Unicode::MapUTF8 qw(utf8_supported_charset to_utf8 from_utf8);

my $string = "RA(A;dia.Cz - RA(A;dia na internetu";

print "[UTF8]       $string\n";
print "[ISO-8859-1] " . from_utf8( { -string => $string, -charset =>
"ISO-8859-1" } ) . "\n";
print "[T.61]       " . from_utf8( { -string => $string, -charset => "T.61" } )
. "\n";

Diky.
+-----------------------------------------------------------------------------+
|  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                                                             |
+-----------------------------------------------------------------------------+