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

Diff of /trunk/filter/croascii.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 130 by dpavlin, Wed Oct 8 21:26:13 2003 UTC revision 131 by dpavlin, Wed Oct 8 22:05:00 2003 UTC
# Line 1  Line 1 
1    # CROASCII (YUS|HRN) B1.002:1982
2    # conversion to ISO-8859-2
3    
4  sub croascii {  sub croascii {
5          my $out = "";          my $out = "";
6          foreach (@_) {          foreach (@_) {
7                  tr/~^}]{[|\`@/Èæƹ©ðо®/;  #               tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;      # B1.002:1982
8                    tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;    # Crolist croascii
9                  $out .= $_;                  $out .= $_;
10          }          }
11          return $out;          return $out;
Legend:
Removed from v.130  
changed lines
  Added in v.131
  ViewVC Help
Powered by ViewVC 1.1.26