/[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

Contents of /trunk/filter/croascii.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 131 - (show annotations)
Wed Oct 8 22:05:00 2003 UTC (20 years, 5 months ago) by dpavlin
File size: 238 byte(s)
Crolist CROASCII

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