qse/ase/cmd/awk/unr-001.awk
2008-03-21 03:49:53 +00:00

7 lines
106 B
Awk

# use negnum.data
BEGIN { OFS="\t"; }
{
for (i = 1; i <= NF; i = i + 1) if ($i < 0) $i = -$i;
print;
}