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 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
|
class= de
># " de l'id= " codeSnippet763531 de new () ;
mon $workbook = $parser->parse (« /ms/user/s/sayantag/Demo_MF5.xls ») ;
mon $worksheet ;
mon %order_of_flat_file ;
mon @data_arr ;
mon $etl ;
mon $path ;
pour $worksheet ($workbook->worksheets ()) {
mon ($row_min, $row_max) = $worksheet->row_range () ;
mon ($col_min, $col_max) = $worksheet->col_range () ;
mon $row = $row_min + 2 ;
tandis que ($row <=$row_max) {
copie « rangée avant si le rapport est $row \ n » ;
si Ne « EXTRÉMITÉ » de >value (de $worksheet->get_cell ($row, 2) -) {
copie « rangée ensuite si le rapport est $row \ n » ;
mon $etl_cell = $worksheet->get_cell ($row, 2) ;
si (défini ($etl_cell)) {
$etl = $etl_cell->value ;}
mon $path_cell = $worksheet->get_cell ($row, 1) ;
si (défini ($path_cell)) {
$path = $path_cell->value ;
s \ s$//de =~ de $path ;
CHEMIN d'impression « : $path ». » \ n " ;}
mon $path_cell0 = $worksheet->get_cell ($row, 0) ;
si (défini ($path_cell0)) {
$path.= $path_cell0->value ;
copie $path_cell0->value. « \ n » ;
CHEMIN d'impression « : $path ». » \ n " ;
copie « ETL : $etl ». » \ n " ;
CHEMIN d'impression « : $path ». » \ n " ;
}
mon $data_row ;
pour mon $col ($col_min+3. $col_max) {
RANGÉE d'impression « : $row ». » \ n " ;
COLONNE d'impression « : $col ». » \ n " ;
mon $cell = $worksheet->get_cell ($row, $col) ;
si (défini ($cell)) {
mon $cell_val = $cell->value ;
la copie « valeur de cellules est $cell_val \ n » ;
$data_row. = $cell_val. « | » ;
impriment « premier élément de tableau est $data_arr [0] \ n » ;
imprimer le « contenu de « », $path, « » sera : \ n ", @data_arr, « \ n » ;
} autrement {$data_row. = « | » ;
}
}
=~ s de $data_row {\|+$} {} ; # enlever les pipes de remorquage.
$data_row. = « \ n » ; # ajouter la ligne extrémité à la fin de la rangée.
pousser le @data_arr, $data_row ;
$row++ ;
}
autrement {# copie « que la rangée ressemble au @data_arr \ n » ;
s'ouvrir (« FILEHANDLE », « > », $path) ou mourir « ne peut pas ouvrir le dossier », $path, « : $ ! » ;
@data_arr de l'impression FILEHANDLE ;
fin (« FILEHANDLE ») ;
@data_arr = () ;
$row = $row+2 ;
la copie « valeur de la rangée avant d'appeler après est $row \ n » ;
après ;
}
$order_of_flat_file {$etl} = $path ;
}
}
pour mon $curr_etl_val (@etl_val) {
imprimer $order_of_flat_file {$curr_etl_val}, « \ n » ;
}
foreach mes $curr_etl (@etl_val) {
« d'impression \ nNow exécutant le déroulement des opérations $curr_etl \ n » ;
`de $curr_etl « REPO_SVC_PhxR2Qa » « Domain_NY_Qa » de « NjuX2mfP0k » « PhoenixFunding » de ksh Command_Line_Etl.ksh « PhoenixFundingAdmin » de `;
}
la copie « \ dossiers de nAll sont produits après fonctionnement des déroulements des opérations. Tracer ces dossiers comme les dossiers de ligne de base à un bilan en courant le manuscrit d'installation d'Excel avant que les données comparent par Saturne \ n \ n \ n » ;
|
