qse/qse/cmd/awk/unr-001.awk
2008-12-21 20:30:00 +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;
}