/[webpac]/trunk/filter/croascii.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/filter/croascii.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 131 - (hide annotations)
Wed Oct 8 22:05:00 2003 UTC (18 years ago) by dpavlin
File size: 238 byte(s)
Crolist CROASCII

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 130 $out .= $_;
10     }
11     return $out;
12     }
13    
14     1;

Properties

Name Value
cvs2svn:cvs-rev 1.2

  ViewVC Help
Powered by ViewVC 1.1.26