使用 AWK 将多行文本转换为 CSV

Question

我有一个这样的文件：

// question: 0  name: Switch category to $cat1$/Pretest Durchführung MIT 04//05/IKT_1_PT/IKT_1_PT_2_MIT05
$CATEGORY: $cat1$/Pretest Durchführung MIT 04//05/IKT_1_PT/IKT_1_PT_2_MIT05


// question: 164887  name: PT_IKT_1_01_ FTP
::PT_IKT_1_01_ FTP::Wozu dient das FTP Protokoll?{
    ~%-100%Blah1
    ~%-100%Blah2
    =Blah3
    ~%-100%Blhah4.
}


// question: 164888  name: PT_IKT_1_02_Verteilte_Systeme
::PT_IKT_1_02_Verteilte_Systeme::Question2?{
    ~%-100%A1
    ~%-100%A2
    =A3
    ~%-100%A4
}

// question: 164893  name: PT_IKT_1_07_Rational_Unified_Process
::PT_IKT_1_07_Rational_Unified_Process::Question3?{
    ~%-50%A1
    ~%-50%A2
    ~%50%A3
    ~%50%A4
}

如何使用 AWK 创建这样的输出？

PT_IKT_1_01_ FTP;Wozu dient das FTP Protokoll?;Blah1;F;Blah2;F;Blah3;T;Blhah4.;F
PT_IKT_1_02_Verteilte_Systeme;Question2?;A1;F;A2;F;A3;T;A4;F
PT_IKT_1_07_Rational_Unified_Process;Question3?;A1;F;A2;F;A3;T;A4;T

所以 - 答案前面的文本表示错误答案，= 表示答案是正确的。但是，有些行只有一个答案是正确的，在这种情况下，没有数字表示有多少百分比的答案是正确的或假。

输入文件是https://docs.moodle.org/23/en/GIFT_format GIFT 文件格式规范的子集

Answer 1

你可以这样做：

awk -v RS="" -F"\n" '$2~/^::/ {sub(/::/,"",$2);sub(/::/,";",$2);sub(/{/,"",$2);for(i=3;i<=6;i++) {n=split($i,a,"[%=]");m=m";"a[n]";"(i==5?"T":"F")};print $2 m;m=""}' file
PT_IKT_1_01_ FTP;Wozu dient das FTP Protokoll?;Blah1;F;Blah2;F;Blah3;T;Blhah4.;F
PT_IKT_1_02_Verteilte_Systeme;Question2?;A1;F;A2;F;A3;T;A4;F
PT_IKT_1_07_Rational_Unified_Process;Question3?;A1;F;A2;F;A3;T;A4;F

PS，我不知道你是怎么得到F 和T 的。我确实假设F;F;T;F 但你有一个F;F;T;T

更具可读性：

awk -v RS="" -F"\n" '
$2~/^::/ {
    sub(/::/,"",$2)
    sub(/::/,";",$2)
    sub(/{/,"",$2)
        for(i=3;i<=6;i++) {
            n=split($i,a,"[%=]")
            m=m";"a[n]";"(i==5?"T":"F")}
        print $2 m;m=""
    }
' file