Question

我想根据索引选择要放入哪个文件的数据。但是，我似乎陷入了以下困境。

我使用文件句柄数组创建了文件：

my @file_h;
my $file;
foreach $file (0..11)
{
    $file_h[$file]= new IT::File ">seq.$file.fastq";
}

$file= index;
print $file_h[$file] "$record_r1[0]$record_r1[1]$record_r1[2]$record_r1[3]\n";

但是，我在最后一行因某种原因收到错误。帮助任何人....？

Answer 1

那应该只是：

my @file_h;
for my $file (0..11) {
    open($file_h[$file], ">", "seq.$file.fastq")
       || die "cannot open seq.$file.fastq: $!";
}

# then later load up $some_index and then print 
print { $file_h[$some_index] } @record_r1[0..3], "\n";

Answer 2

您始终可以使用面向对象的语法：

$file_h[$file]->print("$record_r1[0]$record_r1[1]$record_r1[2]$record_r1[3]\n");

此外，您可以更简单地打印出阵列：

$file_h[$file]->print(@record_r1[0..3],"\n");

或者像这样，如果这四个元素实际上是整个事物：

$file_h[$file]->print("@record_r1\n");

Answer 3

首先尝试将$file_h[$file]分配给临时变量：

my @file_h;
my $file;
my $current_file;

foreach $file (0..11)
{
    $file_h[$file]= new IT::File ">seq.$file.fastq";
}

$file= index;
$current_file = $file_h[$file];

print $current_file "$record_r1[0]$record_r1[1]$record_r1[2]$record_r1[3]\n";

据我所知，Perl不会将其识别为输出句柄，否则会抱怨语法无效。

文件句柄数组

3 个答案: