Question

任何人都可以帮我写一个Perl脚本，它可以输入5个文本文件并创建一个新的文本文件，合并所有5个文件的每一行。如果通过一次打开5个读取流或像java那样在Perl中可以使用一些随机文件阅读器来完成吗？

谢谢！

Answer 1

这是一个可以处理任意数量文件的Perl脚本：

use strict;
use warnings;

my @files = ('a.txt','b.txt');
my @fh;

#create an array of open filehandles.
@fh = map { open my $f, $_ or die "Cant open $_:$!"; $f } @files;

open my $out_file, ">merged.txt" or die "can't open out_file: $!";

my $output;
do
{
    $output = '';

    foreach (@fh)
    {
        my $line = <$_>;
        if (defined $line)
        {
            #Special case: might not be a newline at the end of the file
            #add a newline if none is found.
            $line .= "\n" if ($line !~ /\n$/);
            $output .= $line;
        }
    }

    print {$out_file} $output;
}
while ($output ne '');

A.TXT：

foo1
foo2
foo3
foo4
foo5

b.txt：

bar1
bar2
bar3

merged.txt：

foo1
bar1
foo2
bar2
foo3
bar3
foo4
foo5

Answer 2

该程序需要命令行上的文件列表（或者，在Unix系统上，是通配符文件规范）。它为这些文件创建了一个文件句柄@fh数组，然后依次从每个文件中读取，将合并后的数据打印到STDOUT

use strict;
use warnings;

my @fh;
for (@ARGV) {
  open my $fh, '<', $_ or die "Unable to open '$_' for reading: $!";
  push @fh, $fh;
}

while (grep { not eof } @fh) {
  for my $fh (@fh) {
    if (defined(my $line = <$fh>)) {
      chomp $line;
      print "$line\n";
    }
  }
}

Answer 3

如果非perl解决方案适合您，您可以尝试：

paste -d"\n\n\n\n\n" f1 f2 f3 f4 f5

其中f1，f2 ..是你的文本文件。

Perl脚本逐行合并多个文件

3 个答案: