/[webpac]/trunk/test_charset.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/test_charset.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 36 - (show annotations)
Sat Mar 15 19:16:31 2003 UTC (16 years, 9 months ago) by dpavlin
File MIME type: text/plain
File size: 449 byte(s)
small program to test codepage which OpenIsis returns

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

Properties

Name Value
cvs2svn:cvs-rev 1.1
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26