9 Text::Iconv->raise_error(1); # Conversion errors raise exceptions
12 my $to = "ISO-8859-2";
14 my $isis_codepage = Text::Iconv->new('852',$to);
16 my $isis_db="/data/isis_data/small/ps/PERI/PERI";
19 my $db = OpenIsis::open( $isis_db );
21 my $row = OpenIsis::read( $db, $row_id );
25 print isis_sf($row,'200'),"\n";
27 my $xml = '<?xml version="1.0" encoding="ISO-8859-2"?><xml>truæ</xml>';
28 #my $xml_codepage = Text::Iconv->new('ISO-8859-2','UTF-8');
29 #$xml = XMLin($xml_codepage->convert($xml));
34 my $xml_codepage = Text::Iconv->new('UTF-8','iso-8859-2');
35 $xml = $xml_codepage->convert($xml),"\n";
37 print Dumper($xml),"$xml\n";