Dosya tanıtıcısı dizisi

Question

Dizine bağlı olarak hangi verilere hangi verilerin girileceğini seçmek istedim. Ancak, aşağıdakilerle sıkışmış gibi görünüyorum.

ben dosyanın dizisi kolları kullanarak dosyaları oluşturduk:

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

Ancak, son satırdaki nedense bir hata alıyorum. Kimseye yardım et .... İlk geçici bir değişkene $file_h[$file] atama

Answer 1

Dene: bir çıkış başka türlü üstesinden olarak

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

gibi Hatırladığım kadarıyla, Perl geçersiz sözdizimi hakkında şikayetçi, bunu tanımıyor.

Answer 2

Hep nesne yönelimli sözdizimi kullanabilirsiniz: Ayrıca

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

, bunları daha basit dizinin yazdırabilirsiniz:

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

Ya da böyle

, bu dört unsur aslında eğer Her şey:

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

Answer 3

basitçe olmalıdır:

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