Parent Directory | Revision Log
update branches to HEAD
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; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.4 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |