PerlループのExcelスプレッドシートへの出力

Question

私はPerlスクリプトを持っています。その関連ビットは以下に掲載されています。

# Pull values from cells 
     ROW: 
     for my $row ($row_min + 1 .. $row_max) { 
      my $target_cell = $worksheet->get_cell($row, $target_col); 
      my $response_cell = $worksheet->get_cell($row, $response_col); 

      if (defined $target_cell && defined $response_cell) { 
       my $target = $target_cell->value(); 
       my $response = $response_cell->value(); 

# Determine relatedness 
       my $value  = $lesk->getRelatedness($target, $response); 

# Copy output to new Excel spreadhseet, 'data.xls' 
       my $workbook1 = Spreadsheet::WriteExcel->new('data.xls'); 
       my $worksheet1 = $workbook1->add_worksheet(); 
       $worksheet1->set_column(0, 3, 18); 
       my $row = 0; 

       foreach ($target) { 
       $row++; 
       $worksheet1->write($row, 0, "Target  = $target\n"); 
       $worksheet1->write($row, 1, "Response = $response\n"); 
       $worksheet1->write($row, 2, "Relatedness = $value\n"); 
       } 
      } 
     } 

このスクリプトでは、PerlモジュールParseExcelとWriteExcelを使用しています。入力データのスプレッドシートは、2つの列の下にある単語のリストです.1つは「ターゲット」とラベル付けされ、もう1つは「レスポンス」と表示されます。スクリプトは、各ターゲット単語と各応答の単語を取り、それらの間の関連性の値（つまり、コードの

$lesk->getRelatedness 

セクションがやっているものだが計算されます。これは、指標を計算したWordNet ::類似性と呼ばれるPerlモジュールを呼び出しています単語間の関連性）。

これはすべて正常に動作します。問題は、新しいExcelファイルに出力（類似度の測定値、またはこのスクリプトの$値）を書き込もうとしていることです。コードで何をしても、私に与える唯一の出力は、最後のターゲットとレスポンスワードの間の関連性です。残りのすべてを無視します。

ただし、これはExcelファイルに書き込もうとしている場合にのみ発生します。代わりに 'print'関数を使用すると、コマンドウィンドウにすべての出力が表示されます。私はいつもこれをコピーしてExcelに貼り付けることができますが、これを自動化することができればもっと簡単になります。何が問題なのか？

Answer 1

毎回$ rowの値を0にリセットします。

Answer 2

問題が解決しました。

my $workbook1 = Spreadsheet::WriteExcel->new('data.xls'); 
my $worksheet1 = $workbook1->add_worksheet(); 

行をスクリプトの別の部分に移動するだけでした。彼らは 'for'ステートメントに入っていたので、プログラムはループを通過するたびに 'data.xls'ファイルを上書きし続けました。