OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
doc
/
gawk
/
examples
/
prog
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/21/2019 03:49:14 PM
rwxr-xr-x
📄
alarm.awk
2.31 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
anagram.awk
1.33 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
awksed.awk
515 bytes
08/25/2016 03:14:42 AM
rw-r--r--
📄
cut.awk
3.61 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
dupword.awk
507 bytes
08/25/2016 03:14:42 AM
rw-r--r--
📄
egrep.awk
1.91 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
extract.awk
1.74 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
guide.awk
165 bytes
08/25/2016 03:14:42 AM
rw-r--r--
📄
histsort.awk
283 bytes
08/25/2016 03:14:42 AM
rw-r--r--
📄
id.awk
1.22 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
igawk.sh
3.11 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
indirectcall.awk
952 bytes
08/25/2016 03:14:42 AM
rw-r--r--
📄
labels.awk
1014 bytes
08/25/2016 03:14:42 AM
rw-r--r--
📄
split.awk
1.17 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
tee.awk
770 bytes
08/25/2016 03:14:42 AM
rw-r--r--
📄
testbits.awk
729 bytes
08/25/2016 03:14:42 AM
rw-r--r--
📄
translate.awk
1.15 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
uniq.awk
2.64 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
wc.awk
1.45 KB
08/25/2016 03:14:42 AM
rw-r--r--
📄
wordfreq.awk
347 bytes
08/25/2016 03:14:42 AM
rw-r--r--
Editing: translate.awk
Close
# translate.awk --- do tr-like stuff # # Arnold Robbins, arnold@skeeve.com, Public Domain # August 1989 # February 2009 - bug fix # Bugs: does not handle things like tr A-Z a-z; it has # to be spelled out. However, if `to' is shorter than `from', # the last character in `to' is used for the rest of `from'. function stranslate(from, to, target, lf, lt, ltarget, t_ar, i, c, result) { lf = length(from) lt = length(to) ltarget = length(target) for (i = 1; i <= lt; i++) t_ar[substr(from, i, 1)] = substr(to, i, 1) if (lt < lf) for (; i <= lf; i++) t_ar[substr(from, i, 1)] = substr(to, lt, 1) for (i = 1; i <= ltarget; i++) { c = substr(target, i, 1) if (c in t_ar) c = t_ar[c] result = result c } return result } function translate(from, to) { return $0 = stranslate(from, to, $0) } # main program BEGIN { if (ARGC < 3) { print "usage: translate from to" > "/dev/stderr" exit } FROM = ARGV[1] TO = ARGV[2] ARGC = 2 ARGV[1] = "-" } { translate(FROM, TO) print }