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; |