]>
Commit | Line | Data |
---|---|---|
7e3afbba | 1 | #!/usr/bin/perl -p |
2 | # Eleet filter, Copyright 1999 by Joey Hess under the terms of the GNU GPL. | |
3 | BEGIN { | |
4 | $transstring="4bcd3fgh1jklmn0pqr5+uvwxyz"; | |
5 | $t="tr/a-zA-Z/$transstring".uc($transstring)."/"; | |
6 | } | |
7 | eval $t; | |
8 | s:h:|-|:ig; | |
9 | s:l:|_:ig; | |
10 | s:m:/\\/\\:ig; | |
11 | s:n:/\\/:ig; | |
12 | s:v:\\/:ig; | |
13 | s:x:><:ig; |