#! /usr/bin/perl5.10 - w
Warnungen verwenden;
strenges verwenden;
Gebrauch Verteilungsbogen:: ParseExcel;
Gebrauch IO:: Skalar;
Gebrauch Daten:: Kipper;
DBI verwenden;
Gebrauch DBD:: MSDB2;
mein „wf_OTC_Taxlots_Open“ $curr_etl =;
mein $parser = Verteilungsbogen:: ParseExcel->new ();
mein $workbook = $parser->parse („/ms/user/s/sayantag/Source.xls“);
mein $worksheet1 = $workbook->Worksheet („WF“);
#my $worksheet2 = $workbook->Worksheet („Calc“);
Druck $worksheet1;
für $worksheet1 ($workbook->worksheets ()) {
mein ($row_min, $row_max) = $worksheet1->row_range ();
mein ($col_min, $col_max) = $worksheet1->col_range ();
für mein $row ($row_min. $row_max) {##First for##
für mein $col ($col_min. $col_max) {##Second for##
mein $cell = $worksheet1->get_cell ($row, $col);
wenn ($col==0 && $row! && =0 ($worksheet1->get_cell ($row, 0) - >value eq „$curr_etl“)) {
$col++;
mein $src_id = $worksheet1->get_cell ($row, $col) - >value;
Druck $src_id;
mein $dbh = DBI->connect („dbi: MSDB2: NQ200001“, '', '', {„RaiseError“ => 1}) oder
sterben „kann nicht an Datenbank anschließen: $DBI:: errstr“;
$dbh->do (Löschung von pfnd.funding_journal_vw FJ, wo fj.SRC_ID = „$src_id“));
$dbh->disconnect;
$workbook->close ();
}
}
}
}
|