/[webpac]/branches/tehnika/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 /branches/tehnika/filter/croascii.pm

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

revision 322 by dpavlin, Sun Apr 18 01:03:27 2004 UTC revision 323 by dpavlin, Sun Apr 18 02:19:42 2004 UTC
# Line 5  sub croascii { Line 5  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;

Legend:
Removed from v.322  
changed lines
  Added in v.323

  ViewVC Help
Powered by ViewVC 1.1.26