如何让gawk将我的数据转置为csv文件

BEGIN {
    FS = " "  # 设置字段分隔符，根据实际情况进行调整
    OFS = ","  # 设置输出字段分隔符为逗号
}

{
    for (i = 1; i <= NF; i++) {
        if (NR == 1) {
            header[i] = $i  # 保存第一行作为CSV文件的列名
        } else {
            data[i][NR-1] = $i  # 保存数据到二维数组中
        }
    }
}

END {
    # 输出CSV文件的列名
    for (i = 1; i <= NF; i++) {
        printf "%s%s", header[i], (i == NF ? "\n" : OFS)
    }

    # 输出转置后的数据
    for (j = 1; j < NR; j++) {
        for (i = 1; i <= NF; i++) {
            printf "%s%s", data[i][j], (i == NF ? "\n" : OFS)
        }
    }
}

gawk -f transpose.awk input.txt > output.csv