1 |
#!/usr/bin/perl -w |
2 |
|
3 |
use strict; |
4 |
use OpenIsis; |
5 |
use Text::Iconv; |
6 |
use XML::Simple; |
7 |
use Data::Dumper; |
8 |
|
9 |
Text::Iconv->raise_error(1); # Conversion errors raise exceptions |
10 |
|
11 |
#my $to = "UTF-8"; |
12 |
my $to = "ISO-8859-2"; |
13 |
|
14 |
my $isis_codepage = Text::Iconv->new('852',$to); |
15 |
|
16 |
my $isis_db="/data/isis_data/small/ps/PERI/PERI"; |
17 |
my $row_id = 11; |
18 |
|
19 |
my $db = OpenIsis::open( $isis_db ); |
20 |
|
21 |
my $row = OpenIsis::read( $db, $row_id ); |
22 |
|
23 |
use isis_sf; |
24 |
|
25 |
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 |
|