| Revision 337 (by dpavlin, 2004/06/10 19:22:40) |
|---|
# CROASCII (YUS|HRN) B1.002:1982
# conversion to ISO-8859-2
sub croascii {
my $out = "";
foreach (@_) {
# tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/; # B1.002:1982
tr/^~]}\\|[{@`/ÈèÆæÐ𩹮¾/; # Crolist croascii
# Crolist alternative encoding
s/ÏC/È/g;
s/Ïc/è/g;
s/ÂC/Æ/g;
s/Âc/æ/g;
#s/??/Ð/g;
s/ò/ð/g;
s/ÏS/©/g;
s/Ïs/¹/g;
s/ÏZ/®/g;
s/Ïz/¾/g;
$out .= $_;
}
return $out;
}
1;