class= " lineNumbers " de
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= de
># " de l'id= " codeSnippet789805 de new () ;
mon $workbook = $parser->parse (« /ms/user/s/sayantag/Source.xls ») ;
mon $worksheet1 = $workbook->Worksheet (« WF ») ;
#my $worksheet2 = $workbook->Worksheet (« CALC ») ;
copie $worksheet1 ;
pour $worksheet1 ($workbook->worksheets ()) {
mon ($row_min, $row_max) = $worksheet1->row_range () ;
mon ($col_min, $col_max) = $worksheet1->col_range () ;
pour mon $row ($row_min. $row_max) {for## de ##First
pour mon $col ($col_min. $col_max) {for## de ##Second
mon $cell = $worksheet1->get_cell ($row, $col) ;
si ($col==0 && $row ! && =0 eq « $curr_etl » de >value (de $worksheet1->get_cell ($row, 0) -)) {
$col++ ;
mon $src_id = $worksheet1->get_cell ($row, $col) - >value ;
copie $src_id ;
mon $dbh = DBI->connect (« dbi : MSDB2 : NQ200001 », '', '', {« RaiseError » => 1}) ou
mourir « ne peut pas se relier à la base de données : $DBI : : errstr » ;
$dbh->do (suppression de pfnd.funding_journal_vw FJ où fj.SRC_ID = « $src_id »));
$dbh->disconnect ;
$workbook->close () ;
}
}
}
}
|
