如何使用 sed/awk 每两行切换/旋转？

Question

我一直在手工做这件事，但我不能再这样做了——我有数千行，我认为这是 sed 或 awk 的工作。

本质上，我们有一个像这样的文件：

A sentence X
A matching sentence Y
A sentence Z
A matching sentence N

整个文件都延续这种模式。我想翻转每个句子和匹配的句子，这样整个文件就会像这样：

A matching sentence Y
A sentence X
A matching sentence N
A sentence Z

有什么提示吗？

编辑：扩展最初的问题

Dimitre Radoulov 为最初的问题提供了一个很好的答案。这是主要问题的扩展 - 一些更多细节：

假设我们有一个组织好的文件（由于 Dimitre 给出的 sed 行，该文件是组织好的）。但是，现在我想按字母顺序组织文件，但仅使用第二行的语言（英语）。

watashi 
me
annyonghaseyo
hello
dobroye utro!
Good morning!

我想通过英语句子（每第二句）按字母顺序组织。给定上述输入，输出应该是：

dobroye utro!
Good morning!
annyonghaseyo
hello
watashi
me 

Answer 1

对于问题的第一部分，这里有一种在 sed 中相互交换每一行而不使用正则表达式的方法：

sed -n 'h;n;p;g;p'

-n 命令行抑制自动打印。命令 h put 将当前行从模式空间复制到保留空间，n 将下一行读入模式空间，p 打印它; g 将第一行从保留空间复制回模式空间，将第一行带回模式空间，然后 p 打印它。

Answer 2

sed 'N; 
s/\(.*\)\n\(.*\)/\2\
\1/' infile

N - 将下一行输入附加到模式空间
\(.*\)\n\(.*\) - 保存模式空间的匹配部分
换行符之前和之后的一个。
<代码>\2\\
\1 - 交换两行（\1 是第一个保存的部分，
\2 第二个）。使用转义文字换行符实现可移植性

对于某些 sed 实现，您可以使用转义序列
\n：改为 \2\n\1。

Answer 3

第一个问题：

awk '{x = $0; getline; print; print x}' filename

下一个问题： 按第二行排序

paste - - < filename | sort -f -t 
，输出：
dobroye utro!
Good morning!
annyonghaseyo
hello
watashi
me

\t' -k 2 | tr '\t' '\n'

，输出：

Answer 4

假设像这样的输入文件：

A sentence X
Z matching sentence Y
A sentence Z
B matching sentence N
A sentence Z
M matching sentence N

您可以使用 Perl 进行交换和排序：

perl -lne'
 $_{ $_ } = $v unless $. % 2;
 $v = $_;
 END {
  print $_, $/, $_{ $_ }
    for sort keys %_; 
   }' infile

我得到的输出是：

% perl -lne'
 $_{ $_ } = $v unless $. % 2;
 $v = $_;
 END {
  print $_, $/, $_{ $_ }
    for sort keys %_;
   }' infile
B matching sentence N
A sentence Z
M matching sentence N
A sentence Z
Z matching sentence Y
A sentence X

如果您想按第一行排序（在交换之前）：

perl -lne'
 $_{ $_ } = $v unless $. % 2;
 $v = $_;
 END {
  print $_, $/, $_{ $_ }
    for sort {
      $_{ $a } cmp $_{ $b }
      } keys %_; 
   }' infile

那么，如果原始文件如下所示：

% cat infile1
me
watashi 
hello
annyonghaseyo
Good morning!
dobroye utro!

输出应如下所示：

% perl -lne'
 $_{ $_ } = $v unless $. % 2;
 $v = $_;
 END {
  print $_, $/, $_{ $_ }
    for sort {
  $_{ $a } cmp $_{ $b }
  } keys %_;
   }' infile1
dobroye utro!
Good morning!
annyonghaseyo
hello
watashi 
me

此版本应正确处理重复记录：

perl -lne'
 $_{ $_, $. } = $v unless $. % 2;
 $v = $_;
 END {
    print substr( $_, 0, length() - 1) , $/, $_{ $_ }
    for sort {
      $_{ $a } cmp $_{ $b }
      } keys %_; 
   }' infile

另一个版本受 Glenn 发布的解决方案启发（包括记录交换并假设文本文件中不存在模式 _ZZ_）：

sed 'N; 
  s/\(.*\)\n\(.*\)/\1_ZZ_\2/' infile | 
    sort |
      sed 's/\(.*\)_ZZ_\(.*\)/\2\
\1/'