Pergunta : Um outro problema do spreadsheet do Perl -- Por que isto não está funcionando?

Olá! os indivíduos,

There são um mais problema que eu sou upon.

Why sou este código que não funciona?  para unido primá-lo… está incorporando a parte outra do loop.
---------------------------------------------------------------
#! /usr/perl5/bin/perl5.10 - avisos do w

use; Spreadsheet do
use:: ParseExcel;
use estrito;
use IO:: Escalar; dados do
use:: Descarregador;

my $run_var = “OTCOptionsMVCalc”;

#shift;
# " OTCOptionsMVCal”; o
print “a variável do funcionamento é $run_var”. ” \ n ";
my CFP = “/ms/user/s/sayantag/”;

#shift;
# " /ms/user/s/sayantag/ “; a variável do
print “CFP é CFP”. ” \ n ";

my $xls_parser = Spreadsheet:: ParseExcel->new ();
my $xls_workbook = $xls_parser->parse (CFP. “Demo_Calc_ETL_Dep5.xls”);
my $xls_worksheet;


for $xls_worksheet ($xls_workbook->worksheets ()) {
#print “xyb”;
my ($row_min, $row_max) = $xls_worksheet->row_range ();
my ($col_min, $col_max) = $xls_worksheet->col_range ();

para meu $row ($row_min. $row_max) {for##
do ##First para meu $col ($col_min. $col_max) {for##
do ##Second meu $cell = $xls_worksheet->get_cell ($row, $col);
se ($col==0 && $row! && =0 (eq “$run_var” do >value de $xls_worksheet->get_cell ($row, 0) -))  {cópia do
“o nome do calc é”, >value de $xls_worksheet->get_cell ($row, 0) -; “da cópia do
\ n \ corrigem conhecida de n Calc \ n \ n; ”; sistema do
(de “,” /ms/user/s/sayantag/Dependency_Tree.pl ", $run_var, CFP /ms/dist/perl5/bin/perl5.10 ");
do
} mais {“da cópia do
\ incorreto conhecido de n \ nCalc. Pls dá entrada com o nome do Calc corretamente. \ n \ n”; saída do
(1);
do
do
do
do
}}}}-------------------------------------------------------------------------- class= do " lastRow do

>Attachments do " nome " do class= do class= " valor " do

>