複数のファイルを読み込み、１つのファイルとして出力する方法。

質問

Nakanoです。いつもお世話になっております。

例えばテキストファイルを２つ用意し、１つのテキストファイルとして
出力したいのですが、いまいちやり方が分かりません。出来るのかどうかも
分からないです。（汗）

下にサンプルデータがあります。取り合えず「in1.txt」「in2.txt」
を最終的に『out.txt』の様に仕上げたいのですが…

#
=in1.txt
AAAAA BBBBB CCCCC DDDDD
1,000 2,000 3,000 4,000
1,001 2,002 3,003 4,004
1,010 2,020 3,030 4,040
1,100 2,200 3,300 4,400

=in2.txt
EEEEE FFFFF GGGGG HHHHH
5,000 6,000 7,000 8,000
5,005 6,006 7,007 8,008
5,050 6,060 7,070 8,080
5,500 6,600 7,700 8,800

#
=out.txt
AAAAA BBBBB CCCCC DDDDD EEEEE FFFFF GGGGG HHHHH
1,000 2,000 3,000 4,000 5,000 6,000 7,000 8,000
1,001 2,002 3,003 4,004 5,005 6,006 7,007 8,008
1,010 2,020 3,030 4,040 5,050 6,060 7,070 8,080
1,100 2,200 3,300 4,400 5,500 6,600 7,700 8,800

#

・このデータはタブで区切っています。カンマはない場合もあります。

・ファイルの中のそれぞれの文字列の数は固定です。行数も固定です。
　各文字列の中の文字数はランダムです。

　COPYコマンドを利用しても考えてみたのですが、後ろに続いちゃって
　上手くいかなかったです。（笑）
　Perlだと１つ目のファイルの１行目を配列に入れて、次に２つ目の
　ファイルの１行目を配列に入れて、これを一旦出力して、同じ手順の
　様な事を行を２行目、３行目、４行目、、とずらして繰り返す。って
　感じでイメージしているのですが、どの様にソースを組めばいいのか
　分かりませんでした。
　どなたかご教授いただけないでしょうか？

宜しくお願い致します。

回答No.1

BLUEPIXY

最初に配列に読み込んでも良いけど、やることは同じです。
次のような感じいい（エラー処理がないけど）と思います。
open(IN1, "<in1.txt");
open(IN2, "<in2.txt");
open(OUT, ">out.txt");

while(<IN1>){
chomp;
$in2 = <IN2>;
print OUT "$_\t$in2";
}
close(OUT);
close(IN2);
close(IN1);