tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

field: Use \t as separator.

Browse source
This commit is contained in:
Ole Tange 2020-10-11 12:40:12 +02:00
parent 30f10bbdf1
commit 157e498d6b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
field/field
View file

@ -101,7 +101,7 @@ if($Global::must_eval) {
$Calc::f{$#F}++; $Calc::f{$#F}++;
@{$Calc::fields->{$#F}} = eval $fields; @{$Calc::fields->{$#F}} = eval $fields;
} }
print join(" ",@F[@{$Calc::fields->{$#F}}]),"\n"; print join("\t",@F[@{$Calc::fields->{$#F}}]),"\n";
} }
} else { } else {
# awk counts from 1 not 0 # awk counts from 1 not 0
@ -109,7 +109,7 @@ if($Global::must_eval) {
# Use mawk (60 MB/s)/gawk (30 MB/s)/awk (? MB/s) # Use mawk (60 MB/s)/gawk (30 MB/s)/awk (? MB/s)
my $awk = which("mawk") || which("gawk") || which("awk"); my $awk = which("mawk") || which("gawk") || which("awk");
my $awkscript = '{print '. my $awkscript = 'BEGIN {OFS = "\t"} {print '.
(join ",", map { '$'.$_ } @fields). (join ",", map { '$'.$_ } @fields).
'}'; '}';
exec($awk,$awkscript); exec($awk,$awkscript);