3 |
use strict; |
use strict; |
4 |
use OpenIsis; |
use OpenIsis; |
5 |
use Text::Iconv; |
use Text::Iconv; |
6 |
|
use XML::Simple; |
7 |
|
use Data::Dumper; |
8 |
|
|
9 |
Text::Iconv->raise_error(1); # Conversion errors raise exceptions |
Text::Iconv->raise_error(1); # Conversion errors raise exceptions |
10 |
|
|
22 |
|
|
23 |
use isis_sf; |
use isis_sf; |
24 |
|
|
25 |
print $isis_codepage->convert(isis_sf($row,'200')),"\n"; |
print isis_sf($row,'200'),"\n"; |
26 |
|
|
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)); |
30 |
|
|
31 |
|
$xml = XMLin($xml); |
32 |
|
|
33 |
|
#undef $xml_codepage; |
34 |
|
my $xml_codepage = Text::Iconv->new('UTF-8','iso-8859-2'); |
35 |
|
$xml = $xml_codepage->convert($xml),"\n"; |
36 |
|
|
37 |
|
print Dumper($xml),"$xml\n"; |
38 |
|
|