perl array только печатает последнюю строку

Question

У меня есть файл около 3000 строк. Я сопоставляю каждое слово в документе со списками ссылок, которые у меня есть. Если слово соответствует одному в моем списке, я подставляю его. Проблема в том, что код только печатает последнюю строку, но не весь файл.

Я уверен, что мой код не так эффективен и займет много времени, чтобы обработать, есть в любом случае для повышения эффективности кода

open IN, "drug_list.txt" or die "No such file:$!\n"; 
open OUT, ">synergy1.txt" or die; 
while(<IN>) { 
     my @a=split /\t/,$_; 
     $a[0]=~s/\s//g; 
     $a[1]=~s/\s//g; 
     $a[2]=~s/\s//g; 
     $b[$i]=$a[0]; 
     $c[$i]=$a[1]; 
     $d[$i]=$a[2]; 
     ++$i; 
} 

use Data::Dumper; 
open FILE, "input.txt" or die "No such file:$!\n"; 
while(<FILE>) { 
    my $line= $_; 
    chomp $line; 
    $line =~ s/(\)|\()//g; 
    $line =~ s/,/ ,/g; 
    $line =~ s/\./ ./g; 
    @array = split ' ',$line; 

    for($k=0;$k<$i;++$k) { 
     foreach $n(@array) { 
      if($n=~m/^\Q$b[$k]\E$/i) { 
       $n=~s/$n/<span style="background-color:yellow;">$n<\/span>/; 
      } 
      if($n=~m/^\Q$c[$k]\E$/i) { 
       $n=~s/$n/<span style="background-color:red;">$n<\/span>/; 
      } 
      if($n=~m/^\Q$d[$k]\E$/i) { 
       $n=~s/$n/<span style="background-color:blue;">$n<\/span>/; 
      } 
     } # end foreach 
    }  # end for 
}   # end while 
print OUT "@array"; 
close(FILE); 
close(IN); 

Answer 1

создается две переменных с именами @array.

my @array; 
while(<IN>) 
{ 
    ... 
    my @array = split ' ',$line; 

Answer 2

Также вы close(IN) и несколько строк позже вы пытаетесь сделать while (<IN>).

Предоставьте рабочий код и пример данных. В противном случае будет сложной задачей выяснить, в чем проблема.

Answer 3

Я редактировал код, теперь только последняя строка получить распечатанный

Теперь вы снова присваивание @array на каждом проходе:

while(<FILE>) 
    { 

[...] 

    @array = split ' ',$line; 

[...] 

    } 

    print OUT "@array"; 

Когда массив получает распечатаны, он содержит только последнюю строку. Самое простое решение, вероятно, переместить линию print OUT на внутриwhile() петля, в конце. Таким образом, он будет распечатан до, он переназначает содержимое новой строки.