linux - 如何在awk中获取列名？

Question

我有以下格式的数据文件:

Program1, Program2, Program3, Program4
0,        1,        1,        0
1,        1,        1,        0

列是程序名称，行是程序的特征。我需要编写一个遍历每一行的 awk 循环，检查值是否等于 1，然后返回列名并将它们放入“results.csv”文件中。所需的输出应该是这样的:

Program2, Program3
Program1, Program2, Program3

我正在尝试这段代码，但它不起作用:

awk -F, '{for(i=1; i<=NF; i++) if ($i==1) {FNR==1 print$i>>results}; }'

非常感谢您的帮助!

Answer 1

awk -F', *' '
NR==1 {for(i=1;i<=NF;i++) h[i]=$i; next}
{
    sep="";
    for(x=1;x<=NF;x++) {
        if($x) {
            printf "%s%s", sep, h[x]; 
            sep=", ";
        }
    }
    print ""
}' file

输出:

Program2, Program3
Program1, Program2, Program3