Perl打開多個文件並排寫入一個文件

Question

我正在Windows中運行Perl腳本，該腳本會創建帶有一些信息的多個文本文件。 我希望獲得有關Perl腳本的幫助，以將所有文本文件數據並排放置到一個文件中。 我知道我可以使用嵌套的foreach循環解析每個文件並並排打印它們。 但是文件數量有所不同。 例如：

輸入：

file1.txt ：

AAA
BBB
CCC

file2.txt ：

DDD
EEE
FFF

輸出：

AAA  DDD
BBB  EEE
CCC  FFF

提前致謝

Answer 1

如果您未設置自己的perl腳本，則linux工具paste也提供了此功能。

Answer 2

關於什么 ：

open my $fh, ">", "concat.txt" or die $!;
my $string = qx(
    @echo off;
    type %*.txt;
);
print $fh $string;

？

Answer 3

這應該做。

use strict;
use warnings;
use IO::File;

my @files = (q[a.txt], q[b.txt]);

my @fhs = ();

foreach my $file (@files)
{
    my $fh = new IO::File $file, O_RDONLY;
    push @fhs, $fh if defined $fh;
}

while(1)
{
    my @lines = map { $_->getline } @fhs;

    last if grep { not defined $_ } @lines[0..(@fhs-1)];

    print join(qq[\t], map { s/[\r?\n]+/ /g; $_ } @lines) . qq[\r\n];
}

map { $_->close } @fhs;