perl - 将行上的成对集转换为列

Question

是否有针对以下问题的 Perl 解决方案: 我有一个以下格式的文件

abcdef
abcdef
abcdef
abcdef

这只是文件的一个示例，实际扩展了几千列和几百行，并且由 1 和 0 组成

我希望我的输出如下

abababab
cdcdcdcd
efefefef

我在其他地方寻找答案，但只找到了将行直接转置为列的解决方案。在本例中，我想取出一行中的每一对并将它们转置到一列中。

非常感谢您的帮助，因为我几天来一直在解决这个问题

Answer 1

我认为我的解决方案将使用 Tie::File模块自动执行多次读取文件所需的缓冲。

use strict;
use warnings;

use Fcntl 'O_RDONLY';
use Tie::File;
use List::Util 'max';

tie my @data, 'Tie::File', 'test.dat', mode => O_RDONLY or die $!;

my $max = max map length, @data;

for (my $index = 0; $index < $max; $index += 2) {
  print substr $_, $index, 2 for @data;
  print "\n";
}

输出

abababab
cdcdcdcd
efefefef