/[webpac]/trunk2/filter/croascii.pm
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 /trunk2/filter/croascii.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 322 - (hide annotations)
Sun Apr 18 02:15:16 2004 UTC (17 years, 5 months ago) by dpavlin
Original Path: trunk/filter/croascii.pm
File size: 390 byte(s)
fix of a fix (case)

1 dpavlin 131 # CROASCII (YUS|HRN) B1.002:1982
2     # conversion to ISO-8859-2
3 dpavlin 130
4     sub croascii {
5     my $out = "";
6     foreach (@_) {
7 dpavlin 131 # tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/; # B1.002:1982
8 dpavlin 322 tr/^~]}\\|[{@`/ÈèÆæÐ𩹮¾/; # Crolist croascii
9 dpavlin 141 # Crolist alternative encoding
10     s/ÏC/È/g;
11     s/Ïc/è/g;
12     s/ÂC/Æ/g;
13     s/Âc/æ/g;
14 dpavlin 143 #s/??/Ð/g;
15     s/ò/ð/g;
16 dpavlin 141 s/ÏS/©/g;
17     s/Ïs/¹/g;
18 dpavlin 143 s/ÏZ/®/g;
19     s/Ïz/¾/g;
20 dpavlin 130 $out .= $_;
21     }
22     return $out;
23     }
24    
25     1;

Properties

Name Value
cvs2svn:cvs-rev 1.4

  ViewVC Help
Powered by ViewVC 1.1.26