Cuestión : Otro problema de la hoja de balance del Perl -- ¿Por qué esto no está funcionando?

¿Hola los individuos,

There son un más problema que soy upon.

Why soy este código que no funciona?  para atado sobresalirlo… está incorporando la parte otra del loop.
---------------------------------------------------------------¡
#! /usr/perl5/bin/perl5.10 - advertencias del w

use; hoja de balance del
use:: ParseExcel;
use terminante;
use IO:: Escalar; datos del
use:: Descargador;

my $run_var = “OTCOptionsMVCalc”;

#shift;
# " OTCOptionsMVCal”; el
print “la variable del funcionamiento es $run_var”. ” \ n ";
my CFP = “/ms/user/s/sayantag/”;

#shift;
# " /ms/user/s/sayantag/ “; la variable del
print “CFP es CFP”. ” \ n ";

my $xls_parser = hoja de balance:: 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 mi $row ($row_min. $row_max) {for##
del ##First para mi $col ($col_min. $col_max) {for##
del ##Second mi $cell = $xls_worksheet->get_cell ($row, $col); ¡
si ($col==0 && $row! && =0 eq “$run_var” del >value (de $xls_worksheet->get_cell ($row, 0) -))  {impresión del
“el nombre del calc es”, >value de $xls_worksheet->get_cell ($row, 0) -; “\ n de la impresión del
\ corrigen conocida \ n \ n de n Calc; ”; sistema del
(,” /ms/user/s/sayantag/Dependency_Tree.pl ", $run_var, CFP de “/ms/dist/perl5/bin/perl5.10 ");
del
} {“\ incorrecto conocido de n de la impresión del
\ del nCalc. Pls incorpora nombre del Calc correctamente. \ n \ n”; salida del
(1);
del
del
del
del
}}}}-------------------------------------------------------------------------- class= " lastRow del

>Attachments del " nombre " del class= del class= " valor " del

del >