Parent Directory | Revision Log
another alternative encoding for Crolist. How many does it have?
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 | 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 | |||
15 | s/ÏS/©/g; | ||
16 | s/Ïs/¹/g; | ||
17 | #s/??/Ð/g; | ||
18 | s/ò/ð/g; | ||
19 | dpavlin | 130 | $out .= $_; |
20 | } | ||
21 | return $out; | ||
22 | } | ||
23 | |||
24 | 1; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.3 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |