/[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

Annotation of /trunk/test_charset.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 36 - (hide 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 dpavlin 36 #!/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