Вопрос : Другая проблема электронная таблица perl -- Почему это не бежит?

Hi ванты,

There одна больше проблемы, котор я буду застрявшим upon.

Why буду этим Кодим не?  для прикрепленное первенствуйте… оно входит в другую часть loop.
---------------------------------------------------------------
#! /usr/perl5/bin/perl5.10 - предупреждения w

use; электронная таблица
use:: ParseExcel;
use только;
use IO:: Скалярно; данные по
use:: Dumper;

my $run_var = «OTCOptionsMVCalc»;

#shift;
# " OTCOptionsMVCal»;
print «перемеююый бега будет $run_var». » \ n ";
my CFP = «/ms/user/s/sayantag/»;

#shift;
# " /ms/user/s/sayantag/ «; перемеююым
print «CFP будет CFP». » \ n ";

my $xls_parser = электронная таблица:: 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 ();

для моего $row ($row_min. $row_max) {for##
##First для моего $col ($col_min. $col_max) {for##
##Second мое $cell = $xls_worksheet->get_cell ($row, $col);
если ($col==0 && $row! && =0 (eq «$run_var» >value $xls_worksheet->get_cell ($row, 0) -))  {печать
«имя calc», >value $xls_worksheet->get_cell ($row, 0) -; «печати
\ n \ исправьтесь n Calc названный \ n \ n; »; система
(«,» /ms/user/s/sayantag/Dependency_Tree.pl ", $run_var, CFP /ms/dist/perl5/bin/perl5.10 ");

} еще {«печати
\ неправильно n \ nCalc названное. Pls вписывает имя Calc правильно. \ n \ n»; выход
(1);




}}}}-------------------------------------------------------------------------- class= " lastRow

>Attachments " имени " class= class= " значение "

>