perl - 根据循环中的迭代进行输出的文件句柄

Question

我需要遍历某些数字并在某个字符串中找到这些数字，然后据此我需要将其输出到某个文件。基本上，我的问题是如何根据循环迭代打开文件句柄以在循环中输出？

示例代码：

$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包含该序列，我将其添加到具有先前数据的文件中。

Answer 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");