Question : Un autre problème de bilan de Perl -- Pourquoi est-ce que ceci ne fonctionne pas ?

Salut les types, le

There est un plus de problème que je suis upon.

Why est ce code ne fonctionnant pas ?  pour joint l'exceler… écrit la partie d'autre du loop.
---------------------------------------------------------------
# ! /usr/perl5/bin/perl5.10 - avertissements du w

use ; bilan du
use : : ParseExcel ;
use strict ;
use E/S : : Scalaire ; données du
use : : Dumper ;

my $run_var = « OTCOptionsMVCalc » ;

#shift ;
# " OTCOptionsMVCal » ; le
print « la variable de course est $run_var ».  » \ n " ;
my CFP = « /ms/user/s/sayantag/ » ;

#shift ;
# " /ms/user/s/sayantag/ « ; le
print « variable de PCP est CFP ».  » \ n " ;

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

pour mon $row ($row_min. $row_max) {for##
de ##First pour mon $col ($col_min. $col_max) {for##
de ##Second mon $cell = $xls_worksheet->get_cell ($row, $col) ;
si ($col==0 && $row ! && =0 eq « $run_var » de >value (de $xls_worksheet->get_cell ($row, 0) -))  {copie de
« le nom de CALC est », >value de $xls_worksheet->get_cell ($row, 0) - ; « d'impression du
\ n \ correction nommée de n CALC \ n \ n ;  » ; système du
(/perl5.10 "/>, » /ms/user/s/sayantag/Dependency_Tree.pl ", $run_var, CFP) ;
du
} autrement {« d'impression de
\ incorrect nommé de n \ nCalc. Pls écrivent le nom de CALC correctement. \ n \ n » ; sortie du
(1) ;
du
du
du
du
}}}}-------------------------------------------------------------------------- class= " lastRow de

>Attachments de " nom " de class= de

class= " valeur " de

>