File: eleet

package info (click to toggle)
filters 2.22
  • links: PTS
  • area: main
  • in suites: woody
  • size: 252 kB
  • ctags: 145
  • sloc: lex: 1,868; perl: 269; makefile: 81; sh: 6
file content (14 lines) | stat: -rwxr-xr-x 298 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl -p
# Eleet filter, Copyright 1999 by Joey Hess under the terms of the GNU GPL.
BEGIN {
	$transstring="4bcd3fgh1jklmn0pqr5+uvwxyz";
	$t="tr/a-zA-Z/$transstring".uc($transstring)."/";
}
eval $t;
s:h:|-|:ig;
s:l:|_:ig;
s:m:/\\/\\:ig;
s:n:/\\/:ig;
s:w:\\/\\/:ig;
s:v:\\/:ig;
s:x:><:ig;