0

特定の数値を調べて特定の文字列でそれらの数値を見つけ、それに応じて特定のファイルに出力する必要があります。基本的に、私の質問は、ループの反復に従ってループに出力するためにファイルハンドルをどのように開くかです。

サンプルコード:

$rec_1= "481";

for my $all (@seq)
{ 
  my $match = index($rec_1, $seq[$all]);
  if ($match != -1)
  {
    # I want to open a file handle and output the contents of rec_1
    # accordingly. (there will be 12 different files in the end.)
  }
  else 
  {
    # print the data from rec_1 to not matches (another file)
  }
}

合計で12のシーケンスを確認する必要があることがわかっているので、シーケンスが存在する場合はrec_1データを調べrec_1、そのシーケンスが含まれている場合は前のデータを含むファイルに追加することを確認する必要があります。

4

1 に答える 1

1

次のように FileHandles の配列を使用できます。

#!/usr/bin/perl
use warnings;
use FileHandle;

my @fh;
$fh[0] = FileHandle->new;
$fh[0]->open( ">file0") or die "open failed";
my $i = 0;
$fh[$i]->print("Output for file 0");
于 2012-06-02T19:32:42.950 に答える