-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy pathexp
executable file
·36 lines (32 loc) · 901 Bytes
/
exp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/usr/bin/awk -f
#
# Copyright (c) 2012,2014 Douglas G. Scofield, Uppsala University
#
# This code is covered by the Gnu GPLv2, please see LICENSE.
# Bugs and suggestions to https://github.com/douglasgscofield/tinyutils/issues.
#
# Compute the natural exponential of a set of numbers
#
# CHANGELOG
# 2016-07-10 : initiate the script
BEGIN {
FS = "\t";
OFS = "\t";
# parameters
n = 0;
header = 0; # does the input have a header? if so how many lines?
skip_comment = 1; # skip '#' lines on input
col = 1; # which column do we operate on?
}
{
if (NR <= header) { print; next; }
if (skip_comment && $0 ~ /^#/) { print; next; }
if (NF < col) {
print "on input line " NR " missing requested column" > "/dev/stderr";
next;
}
$(col) = exp($(col));
print;
}