/[webpac]/trunk/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

Contents of /trunk/filter/croascii.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 143 - (show annotations)
Thu Nov 6 21:35:17 2003 UTC (20 years, 4 months ago) by dpavlin
File size: 391 byte(s)
added two missing characters (and still missing one)

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