爲什麼我在輸出文件中看不到計算結果？

Question

這是How do I average column values from a tab-separated data file, ignoring a header row and the left column?的後續行動。任務是：打開並閱讀文件;到達每一行，將內容分割成數組，並計算數值的平均值;最後將新的文件寫入每個包含數值的列的平均值。

所有似乎都很好，直到最後一點。問題是，儘管我可以創建一個新的文件，但.txt文件本身沒有在輸出中打印的內容。最好，作爲Perl的新用戶，我寧願將腳本保留在下面寫的樣式中，以便更好地理解它。我可能不太適合那些更簡潔的版本，可能會在那裏。感謝jchips12是相當有幫助的。

不管怎樣，代碼：從文件Lab1_table.txt

#!/usr/bin/perl -w 
use strict; 
my $infile = "Lab1_table.txt"; # This is the file path 
open INFILE, $infile or die "Can't open $infile: $!"; 
my $outfile = "Lab1_tableoutput.txt"; 
open OUTFILE, ">$outfile" or die "Cannot open $outfile: $!"; 

my $count = 0; 
my @header =(); 
my @average =(); 

while (<INFILE>) { 
    chomp; 
    my @columns = split /\t/; 
    $count++; 
    if ($count == 1) { 
     @header = @columns; 
    } else { 
     for(my $i = 1; $i < scalar @columns; $i++) { 
      $average[$i] += $columns[$i]; 
     } 
    } 
} 

for(my $i = 1; $i < scalar @average; $i++) { 
    print $average[$i]/($count-1), "\n"; 
} 

print OUTFILE "\n"; 
close OUTFILE; 

的數據來如下：

retrovirus  genome gag  pol  env 
HIV-1   9181 1503 3006 2571 
FIV    9474 1353 2993 2571 
KoRV   8431 1566 3384 1980 
GaLV   8088 1563 3498 2058 
PERV   8072 1560 3621 1532 

結果產生正確的平均值，雖然有點雜亂在終端和它們沒有被標記爲對應於任何列號/名稱。此外，還生成了一個.txt文件，但沒有輸出。

結果出來爲：

Argument "" isn't numeric in addition (+) at line 25, <INFILE> line X 
0 
8649.2 
1509 
3300.4 
2142.4 

***Line X: Where X is either 2, 3, 4, 5, or 6.*** 

從這我可以推斷「參數」的錯誤是指5個標題列，並且0與非數值的唯一列。

幫助獲取文件寫入.txt文件，或者在某種程度上我可以讀取命令行中顯示的輸出將不勝感激。另外，雖然我隱約知道代碼的每一步發生了什麼，但如果可能的話，我希望能夠更深入地瞭解大多數步驟中正在發生的事情。我仍然在讀它，但我希望能夠更清楚地理解更多細節。每行

Answer 1

指定的意見，讓您清楚的瞭解

#!/usr/bin/perl -w 
use strict; 
use warnings; 

my $infile = "Lab1_table.txt";       # input file path 
open INFILE, $infile or die "Can't open $infile: $!"; # input file opened 
my $outfile = "Lab1_tableoutput.txt";     # output file path 
open OUTFILE, ">$outfile" or die "Cannot open $outfile: $!"; # output file opened 

my $count = 0;    # count variable to check for header row in file 
my @header =();   # variable to store headers/column names of file 
my @average =();   # variable to store average calculated for each column 

while (<INFILE>) {  
chomp; 
my @columns = split /\s+/; # \s stands for [\ \t\r\n\f] 
$count++;  

if ($count == 1) {   
        @header = @columns;  # executed only once for header 
     } 
else {          # else column executed for remaining rows 
     for(my $i = 1; $i < scalar @columns; $i++) { # $i=1 means skip first column 
       $average[$i] += $columns[$i];  # calcuate average for each row 
      } 
     } 
} 
for(my $i = 1; $i < scalar @average; $i++) {  

    print OUTFILE $average[$i]/($count-1), "\n"; # This will write to output file 

    }  
close OUTFILE; 

使用print OUTFILE $average[$i]/($count-1), "\n";寫入文件。

錯誤Argument "" isn't numeric in addition (+) at line 25, <INFILE> line X可能是您添加的列中的值，任何機會都有字符串而不是數字。請檢查您的輸入文件。

注意：我沒有得到上面的錯誤.Script運行順利與上述數據。但是，如果我將其中一個數字更改爲字符串，我收到此錯誤。