Questione : Un altro problema del foglio elettronico del Perl -- Perché questo non sta funzionando?

Ciao i tipi, il

There è un nuovo problema che sono upon.

Why sono questo codice che non funziona?  per allegato eccellerlo… sta fornendo la parte altra del loop.
---------------------------------------------------------------
#! /usr/perl5/bin/perl5.10 - avvertimenti del w

use; foglio elettronico del
use:: ParseExcel;
use rigoroso;
use IO:: Scalare; dati del
use:: Scaricatore;

my $run_var = “OTCOptionsMVCalc„;

#shift;
# " OTCOptionsMVCal„; il
print “la variabile di funzionamento è $run_var„. „ \ n ";
my CFP = “/ms/user/s/sayantag/„;

#shift;
# " /ms/user/s/sayantag/ “; la variabile del
print “CFP è CFP„. „ \ n ";

my $xls_parser = foglio elettronico:: 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 ();

per il mio $row ($row_min. $row_max) {for##
del ##First per il mio $col ($col_min. $col_max) {for##
del ##Second mio $cell = $xls_worksheet->get_cell ($row, $col);
se ($col==0 && $row! =0 && (eq “$run_var„ del >value di $xls_worksheet->get_cell ($row, 0) -))  {stampa del
“il nome di calc è„, >value di $xls_worksheet->get_cell ($row, 0) -; “\ n della stampa del
\ correggono noma \ n \ n di n Calc; „; sistema del
(“,„ /ms/user/s/sayantag/Dependency_Tree.pl ", $run_var, CFP di /ms/dist/perl5/bin/perl5.10 ");
del
} altrimenti {“\ errato nome nCalc \ di n della stampa del
. Pls introduce correttamente il nome di Calc. \ n \ n„; uscita del
(1);
del
del
del
del
}}}}-------------------------------------------------------------------------- class= " lastRow del

>Attachments " di nome " del class= del class= " valore " del

il