動的ファイルハンドルを使用して複数のファイルを動的に開く方法

Question

動的ファイルハンドルを使用して複数のファイルを開こうとしていますが、動作しません。

for my $i (1 .. $#genome_list) { 
    my $fh = "RESULT$i"; 
    open my $fh, "<", "filename$i"; # here is the problem 
} 

次に、指定されたハンドラのデータにアクセスする方法。

私はプログラムを実行すると、それは私がそれを修正するにはどうすればよい

Can't use string ("RESULT1") as a symbol ref while "strict refs" 

このエラーを示して？

Answer 1

あなたはlittle bit nastyの何かをしようとしています。それを行う方法を教えてくれるのではなく、私は代替案を提案します。

あなたが一度開いて複数のファイルハンドルが必要な場合は、何が必要ハッシュです：

my %file_handle_for; 
for my $i (1..$#genome_list) { 
    open ($file_handle_for{$i}, '<', "filename$i") or die $!; 
} 

次に、あなたが同じようにファイルにアクセスすることができます

print {$file_handle_for{$i}} "Some text\n"; 

または：

while (<{$file_handle_for{$i}}>) { 
    print; 
} 

など

これはもちろん、すべてのファイルを同時に開く必要があると仮定していますが、これは必要ない可能性があります。

上記は、変数を変数名として使用したい場合の一般的な解決方法です。

あなたのケースではそれを見ていますが、数字の順番で空白がないファイルを開いています。つまり、配列が適しています。

my @filehandle_for; 
#note though - arrays start at zero normally, so you might be missing one here! 
foreach my $number (1..$#genome_list) { 
    open ($filehandle_for[$number], '<', "filename$number") or die $!; 
}