[Perl]複数のファイルにそれぞれ違う内容を書き込む方法について

Question

[Perl]複数のファイルに違う内容を書き込む

Perlを使って複数ファイルにそれぞれ違う内容を書き込みたいです。

具体的には、コマンドライン入力した$start_no=2、入力ファイルの行数が 3 とすると
tmp1.txtに　2 3 4 5
tmp2.txtに　6 7 8 9
....
と書き込みたいです。

以下のコードでは、指定した出力ファイルtmp1~4.txt自体はつくられますが、中にはなにも書き込まれません。
余分と判断した部分は削除しているため、入力ファイル内の値はここでは何も使われていません。

該当のソースコード

my $infile=$ARGV[0];
my $start_no=$ARGV[1];

open (my $infh,'<',$infile);

my $i=0;
my $j;
for ($j=1;$j<5;$j++){
  my $outfile1="tmp1.txt";
  my $outfile2="tmp2.txt";
  my $outfile3="tmp3.txt";
  my $outfile4="tmp4.txt";

  open (my $outfl1,'>',$outfile1);
  open (my $outfl2,'>',$outfile2);
  open (my $outfl3,'>',$outfile3);
  open (my $outfl4,'>',$outfile4);
    while ( my $line= <$infh>) {
    $i++;
    if ($i == 1){
    next;#skip label
    }

    my $line_no1=2*($start_no-2)+2;
    my $line_no2=$line_no1+1;
    if($j==1){
    print $outfl1 "$line_no1 \n";
    print $outfl1 "$line_no2  \n";
    }
    elsif($j==2){
    print $outfl2 "$line_no1  \n";
    print $outfl2 " $line_no2 \n";
    }
    elsif($j==3){
    print $outfl3 "$line_no1 \n";
    print $outfl3 "$line_no2  \n";
    }
    else{
    print $outfl4 "$line_no1 \n";
    print $outfl4 " $line_no2  \n";
    }
    $start_no++;
    }
  close ($outfl1);
  close ($outfl2);
  close ($outfl3);
  close ($outfl4);
}
close ($infh);

試したこと

出力ファイルに書き込む前に print $outfl1; とすると、GLOB(0x2208c38) と表示されます。

Answer 1

回答を大幅に修正しました。

１．オープンのモードについて
添え字jのループ内でopen～closeしていますが、オープンモードが毎回 ">"なのでファイルが毎回トランケートされてしまいますね。
">>"に変更すれば良いかと。

２．正しいインデントを（これに惑わされました）

    while ( my $line= <$infh>) {
    $i++;
    if ($i == 1){
    next;#skip label
    }

最後のブレスは一見whileの終わりに見えますが、whileループ内のif分の終わりです。
これでは１回目のforループで入力ファイルを全て読み終わって、全て出力ファイル１に書き込んで
しまいます。
２回目以降のforループは入力ファイルが既にEOFなので空振りするだけです。

インデントは正しく書きましょう。

Comments

[Oi_daki]

返信ありがとうございます！
実際、ファイルハンドルであることは意識せずmy $outfl1という書き方をしていましたが、openが問題なのは変わりないということですか？

[DreamTheater]

ファイルが生成されていることからopen自体は問題なりですね。

[DreamTheater]

回答欄に追記しましたが、openのモードの問題ですね。

[Oi_daki]

open (my $outfl1,'>>',$outfile1);
...
とだけ変更しましたが、結果は変わらずでした。
書き忘れていましたが、tmp1.txtだけは中身までしっかり書き込まれる、というのも不可解な点です。(whileが問題？)
今までのアドバイスですでに非常にありがたいのですが、また何かあったら追記していただけると嬉しいです。

[DreamTheater]

while ( my $line= <$infh>) {
$i++;
if ($i == 1){
next;#skip label
}

最後のブレスは一見whileの終わりに見えますが、whileループ内のif分の終わりですよ。
これでは１回目のforループで入力ファイルを全て読み終わって、全て出力ファイル１に書き込んで
しまいます。
２回目以降のforループは入力ファイルが既にEOFなので空振りするだけです。

インデントは正しく書きましょう。

[Oi_daki]

すみません、丁寧に書くべきでした。そして丁寧にご指摘ありがとうございます。

そもそも私の設計ミスだったようです。
理想では、<while文で入力ファイルを全て読み込む>という動作をfor文を使って４回行いたかったのです。
最初のforでEOFに到達するため、このコードではそうならないということですよね？？
また、そうするにはどう変更したら良いでしょうか。

[DreamTheater]

入力ファイルは行数のみ意味があるということですよね？（しかも１行目はラベル）
1)配列変数に入力ファイルを一気に読み込む。
2)配列の要素数ー１が、１ファイル当たりの列数となる。
3)forループを４回回して、それぞれ回数に相当するファイルを書き込みモードで開く。
4)3のループ内で番号の初期値から列数分回るforループを作る。
5)内側のループ内で番号をファイルに出力する。
6)内側のループを終了したら出力ファイルをクローズする。

こんな感じの実装にすれば良いと思います。
コードで書くこともできますが、コピペされるだけなら勉強になりませんよ。
がんばってください。

[Oi_daki]

わかりました。その方針で組み立ててみます。
たくさんのコメント、大変勉強になりました。
ありがとうございました。