git.rot13.org Git - webpac/blob - tools/test_charset.pl

   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