class= " lineNumbers " del
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
|
class= del
># notpretty " del class= " del id= " codeSnippet789805 del new ();
mio $workbook = $parser->parse (“/ms/user/s/sayantag/Source.xls„);
mio $worksheet1 = $workbook->Worksheet (“WF„);
#my $worksheet2 = $workbook->Worksheet (“Calc„);
stampa $worksheet1;
per $worksheet1 ($workbook->worksheets ()) {
mio ($row_min, $row_max) = $worksheet1->row_range ();
mio ($col_min, $col_max) = $worksheet1->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 = $worksheet1->get_cell ($row, $col);
se ($col==0 && $row! =0 && (eq “$curr_etl„ del >value di $worksheet1->get_cell ($row, 0) -)) {
$col++;
mio $src_id = $worksheet1->get_cell ($row, $col) - >value;
stampa $src_id;
mio $dbh = DBI->connect (“dbi: MSDB2: NQ200001„, '', '', {“RaiseError„ => 1}) o
morire “non può collegarsi a base di dati: $DBI:: errstr„;
$dbh->do (cancellazione da pfnd.funding_journal_vw FJ dove fj.SRC_ID = “$src_id„));
$dbh->disconnect;
$workbook->close ();
}
}
}
}
|