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

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

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

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

Program2, Program3
Program1, Program2, Program3

我正在尝试此代码，但无法正常工作:

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

帮助将不胜感激!

最佳答案

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