Parent Directory | Revision Log | Patch
trunk/filter/croascii.pm revision 143 by dpavlin, Thu Nov 6 21:35:17 2003 UTC | branches/tehnika/filter/croascii.pm revision 323 by dpavlin, Sun Apr 18 02:19:42 2004 UTC | |
---|---|---|
# | Line 4 | Line 4 |
4 | sub croascii { | sub croascii { |
5 | my $out = ""; | my $out = ""; |
6 | foreach (@_) { | foreach (@_) { |
7 | # tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/; # B1.002:1982 | # tr/^\~]}\|[{@\`/ÈèÆæÐ𩹮¾/; # B1.002:1982 |
8 | tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/; # Crolist croascii | tr/^~]}\\|[{@`/ÈèÆæÐ𩹮¾/; # Crolist croascii |
9 | # Crolist alternative encoding | # Crolist alternative encoding |
10 | s/ÏC/È/g; | s/ÏC/È/g; |
11 | s/Ïc/è/g; | s/Ïc/è/g; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |