使用 Sed/AWK/Perl 从块中提取第 K 行

Question

我有一些数据看起来像这样。它分为四行。每个块都以 @ 字符开头。

@SRR037212.1 FC30L5TAA_102708:7:1:741:1355 length=27
AAAAAAAAAAAAAAAAAAAAAAAAAAA
+SRR037212.1 FC30L5TAA_102708:7:1:741:1355 length=27
::::::::::::::::::::::::;;8
@SRR037212.2 FC30L5TAA_102708:7:1:1045:1765 length=27
TATAACCAGAAAGTTACAAGTAAACAC
+SRR037212.2 FC30L5TAA_102708:7:1:1045:1765 length=27
88888888888888888888888888

我想做的是提取每个块的最后一行。产量：

::::::::::::::::::::::::;;8
888888888888888888888888888

请注意，块的最后一行可能包含任何标准 ASCII 字符 包括@。

有没有一种有效的单行文字可以做到这一点？

Answer 1

以下 sed 命令将打印模式后的第三行：

sed -n '/^@/{n;n;n;p}' file.txt

Answer 2

如果没有空行：

perl -ne 'print if $. % 4 == 0' file

Answer 3

$ awk 'BEGIN{RS="@";FS="\n"}{print $4 } ' file

::::::::::::::::::::::::;;8
88888888888888888888888888

如果你总是将这 4 行放在一个块中，那么其他一些方式

$ ruby -ne 'print if $.%4==0' file
::::::::::::::::::::::::;;8
88888888888888888888888888

$ awk 'NR%4==0' file
::::::::::::::::::::::::;;8
88888888888888888888888888

似乎你的行总是在以“+”开头的行之后，所以

$ awk '/^\+/{getline;print}' file
::::::::::::::::::::::::;;8
88888888888888888888888888

$ ruby -ne 'gets && print if /^\+/' file
::::::::::::::::::::::::;;8
88888888888888888888888888

Answer 4

这会打印以 @ 开头的之前行以及最后一行。它可以处理大小不统一的块，但假设只有块前导行以 @ 开头。

sed -ne '1d;$p;/^@/!{x;d};/^@/{x;p}' file

一些解释是按顺序进行的：

• 首先，您不需要第一行，因此删除它 1d
• 接下来，您总是需要最后一行，因此打印它 $p
• 如果您不需要'没有匹配项，将其交换到保留缓冲区中并删除它 x;d
• 如果确实有匹配项，请将其从保留缓冲区中交换出来，然后打印它 x;p

Answer 5

这与dogbane的答案类似

awk '/^@/ {mark = NR} NR == mark + 3 {print}' inputfile

，并且像那个答案一样，无论每个块中有多少行（只要至少有4行）都会起作用。

然而，与该答案的直接模拟是：

awk '/^@/ {next; next; next; print}' inputfile

Answer 6

这可以使用 grep 轻松完成

grep -A 1 '^@' ./infile

Answer 7

这可能对你有用（GNU sed）：

sed '/^@/,+2d' file