关于awk的问题

好的，因为这是一个复杂的问题，所以我将对其进行清楚的解释。我得到的文件内容如下所示：

$ Cat File1 
ABC Cool Lol POP {MNB}
ABC Cool Lol POP {MNB}
ABC Cool Lol POP {MNB}
ABC Cool Lol POP {TBMKF}
ABC Cool Lol POP {YUKER}
ABC Cool Lol POP {EFEFVD}

我想要的输出

-Cool MNB +  POP ;
-Cool MNB  + POP ;
-Cool MNB  + POP ;
-Cool TBMKF + POP ;
-Cool YUKER + POP ;
-Cool EFEFVD +POP ;

首先，我尝试从中取出最后一列File1并通过 sed 's/[{}//g' File1 > File3

之后，我将的全部内容复制File1到一个新的File4

cp File1 File4

之后，我替换数据内的File4与所述File3数据（装置中的数据，而不托架一个“ File1最后一列的一个”）

awk 'FNR==NR{a[NR]=$1;next}{$5=a[FNR]}1' File3 File4 >>File5 

输出应该是这样的

ABC Cool Lol POP MNB
ABC Cool Lol POP MNB
ABC Cool Lol POP MNB
ABC Cool Lol POP TBMKF
ABC Cool Lol POP YUKER
ABC Cool Lol POP EFEFVD

最后，我尝试

awk -F“ " '{print - $2,$5 +,$4 ";"}‘ File5

但是结果并没有如我所愿的那样出来，只有类似的数据MNB都被列出了，其他的都没有出现（文件最后一列数据），

我不知道您为什么要左右复制内容。简单的事情是

awk '{print "-" $2, substr($5,2,length($5)-2), "+", $4, ";"}' File1

我把-开始放在开头;，然后放在结尾。

在我们之间打印

• $2 因为我们想要它。
• 的子字符串$5，它是没有第一个和最后一个字符的字符串。我们从第2个位置开始跳过第一个字符（awk对此一直很陌生），而仅选择一个比原始字符短两个字符的子字符串来省略最后一个字符$5
• 的+，因为我们需要它
• 然后 $4

但是，我不确定所有这些字符串函数是否都特定于GNU awk。

与sed

sed '
    s/\S\+\s/-/
    s/\(\S\+\s\)\{2\}{\(\S\+\)}/\2 + \1;/
    ' File1

和awk变化

awk -F"[[:blank:]{}]+" '{print "-" $2, $5, "+", $4}' ORS=" ;\n" File1

简单的TXR工作：

$ txr -c '@(repeat)
@a @b @c @d {@e}
@(do (put-line `-@b @e + @d ;`))
@(end)' -
ABC Cool Lol POP {MNB}
ABC Cool Lol POP {MNB}
ABC Cool Lol POP {MNB}
ABC Cool Lol POP {TBMKF}
ABC Cool Lol POP {YUKER}
ABC Cool Lol POP {EFEFVD}
[Ctrl-D][Enter]
-Cool MNB + POP ;
-Cool MNB + POP ;
-Cool MNB + POP ;
-Cool TBMKF + POP ;
-Cool YUKER + POP ;
-Cool EFEFVD + POP ;

使用TXR Lisp awk宏音译Awk解决方案：

 txr -e '(awk (t (prn `-@[f 1] @{[f 4] [1..-1]} + @[f 3] ;`)))'

字段在f列表中，索引从零开始。

当$1,$2,...字段中已经包含您要使用的确切字符串时，使用awk最简单。如果字段分隔符包含多个字符，则将其解释为正则表达式。我们不需要执行任何搜索和替换或子字符串操作即可摆脱{curly braces}。我们只是将它们视为定界符的一部分。

awk -F'[ {}]+' '{printf("-%s %s + %s ;\n", $2, $5, $4)}'

使用printf代替print还使查看字符串的格式变得容易一些，但是如果要print "-"$2,$5" + "$4";"代替printf("-%s %s + %s ;\n", $2, $5, $4)，则可以选择。