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:
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= del
># notpretty " del class= " del id= " codeSnippet763531 del new ();
mio $workbook = $parser->parse (“/ms/user/s/sayantag/Demo_MF5.xls„);
il mio $worksheet;
il mio %order_of_flat_file;
il mio @data_arr;
il mio $etl;
il mio $path;
per $worksheet ($workbook->worksheets ()) {
mio ($row_min, $row_max) = $worksheet->row_range ();
mio ($col_min, $col_max) = $worksheet->col_range ();
mio $row = $row_min + 2;
mentre ($row <=$row_max) {
stampa “fila prima se la dichiarazione è $row \ n„;
se (Ne “ESTREMITÀ„ del >value di $worksheet->get_cell ($row, 2) -) {
stampa “fila dopo se la dichiarazione è $row \ n„;
mio $etl_cell = $worksheet->get_cell ($row, 2);
se (definito ($etl_cell)) {
$etl = $etl_cell->value;}
mio $path_cell = $worksheet->get_cell ($row, 1);
se (definito ($path_cell)) {
$path = $path_cell->value;
s \ s$//del =~ di $path;
PERCORSO della stampa “: $path„. „ \ n ";}
mio $path_cell0 = $worksheet->get_cell ($row, 0);
se (definito ($path_cell0)) {
$path.= $path_cell0->value;
stampa $path_cell0->value. “\ n„;
PERCORSO della stampa “: $path„. „ \ n ";
stampa “ETL: $etl„. „ \ n ";
PERCORSO della stampa “: $path„. „ \ n ";
}
il mio $data_row;
per il mio $col ($col_min+3. $col_max) {
FILA della stampa “: $row„. „ \ n ";
COLONNA della stampa “: $col„. „ \ n ";
mio $cell = $worksheet->get_cell ($row, $col);
se (definito ($cell)) {
mio $cell_val = $cell->value;
la stampa “il valore delle cellule è $cell_val \ n„;
$data_row. = $cell_val. “|„;
stampano “primo allineamento elemento è $data_arr [0] \ n„;
stampare “il soddisfare di “„, $path, “„ sarà: \ n ", @data_arr, “\ n„;
} altrimenti {$data_row. = “|„;
}
}
=~ s di $data_row {\|+$} {}; # rimuovere i tubi di trascinamento.
$data_row. = “\ n„; # aggiungere la linea capo a capo di fila.
spingere il @data_arr, $data_row;
$row++;
}
altrimenti {# stampa “che l'allineamento assomiglia a @data_arr \ n„;
aprir (“FILEHANDLE„, “>„, $path) o morire “non può aprire la lima„, $path, “: $! „;
@data_arr della stampa FILEHANDLE;
fine (“FILEHANDLE„);
@data_arr = ();
$row = $row+2;
la stampa “il valore della fila prima della chiamata dopo è $row \ n„;
dopo;
}
$order_of_flat_file {$etl} = $path;
}
}
per il mio $curr_etl_val (@etl_val) {
stampare $order_of_flat_file {$curr_etl_val}, “\ n„;
}
foreach i miei $curr_etl (@etl_val) {
“\ nNow della stampa che esegue flusso di lavoro $curr_etl \ n„;
`„ di $curr_etl “REPO_SVC_PhxR2Qa„ “Domain_NY_Qa„ “di NjuX2mfP0k„ “PhoenixFunding di ksh Command_Line_Etl.ksh “PhoenixFundingAdmin„ del `;
}
la stampa “\ lime del nAll sono generate dopo la corsa dei flussi di lavoro. Tracciare queste lime come pure le lime della linea di base ad un foglio elettronico facendo funzionare lo scritto di messa a punto di Excel prima che i dati confrontino attraverso Saturno \ n \ n \ n„;
|