git.rot13.org Git - webpac/blob - filter/croascii.pm

   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;