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 ();
mi $workbook = $parser->parse (“/ms/user/s/sayantag/Demo_MF5.xls”);
mi $worksheet;
mi %order_of_flat_file;
mi @data_arr;
mi $etl;
mi $path;
para $worksheet ($workbook->worksheets ()) {
mi ($row_min, $row_max) = $worksheet->row_range ();
mi ($col_min, $col_max) = $worksheet->col_range ();
mi $row = $row_min + 2;
mientras que ($row <=$row_max) {
impresión “fila antes si la declaración es $row \ n”;
si ne “EXTREMO” del >value (de $worksheet->get_cell ($row, 2) -) {
impresión “fila después si la declaración es $row \ n”;
mi $etl_cell = $worksheet->get_cell ($row, 2);
si (definido ($etl_cell)) {
$etl = $etl_cell->value;}
mi $path_cell = $worksheet->get_cell ($row, 1);
si (definido ($path_cell)) {
$path = $path_cell->value;
s \ s$//del =~ de $path;
TRAYECTORIA de la impresión “: $path”. ” \ n ";}
mi $path_cell0 = $worksheet->get_cell ($row, 0);
si (definido ($path_cell0)) {
$path.= $path_cell0->value;
impresión $path_cell0->value. “\ n”;
TRAYECTORIA de la impresión “: $path”. ” \ n ";
impresión “ETL: $etl”. ” \ n ";
TRAYECTORIA de la impresión “: $path”. ” \ n ";
}
mi $data_row;
para mi $col ($col_min+3. $col_max) {
FILA de la impresión “: $row”. ” \ n ";
COLUMNA de la impresión “: $col”. ” \ n ";
mi $cell = $worksheet->get_cell ($row, $col);
si (definido ($cell)) {
mi $cell_val = $cell->value;
la impresión “valor de la célula es $cell_val \ n”;
$data_row. = $cell_val. “|”;
imprimen “primer arsenal elemento es $data_arr [0] \ n”;
imprimir el “contenido de “”, $path, “” será: \ n ", @data_arr, “\ n”;
} {$data_row. = “|”;
}
}
=~ s de $data_row {\|+$} {}; # quitar las pipas que se arrastran.
$data_row. = “\ n”; # agregar la línea extremo al final de la fila.
empujar el @data_arr, $data_row;
$row++;
}
{# impresión “que el arsenal parece el @data_arr \ n”;
abrirse (“FILEHANDLE”, “>”, $path) o morir “no puede abrir el archivo”, $path, “: ¡$! ”;
@data_arr de la impresión FILEHANDLE;
cierre (“FILEHANDLE”);
@data_arr = ();
$row = $row+2;
la impresión “valor de la fila antes de llamar después es $row \ n”;
después;
}
$order_of_flat_file {$etl} = $path;
}
}
para mi $curr_etl_val (@etl_val) {
imprimir $order_of_flat_file {$curr_etl_val}, “\ n”;
}
foreach mis $curr_etl (@etl_val) {
“\ nNow de la impresión que ejecuta el flujo de trabajo $curr_etl \ n”;
`” de $curr_etl “REPO_SVC_PhxR2Qa” “Domain_NY_Qa” de “NjuX2mfP0k” “PhoenixFunding del ksh Command_Line_Etl.ksh “PhoenixFundingAdmin” del `;
}
la impresión “\ los archivos del nAll se generan después de funcionar los flujos de trabajo. Trazar estos archivos tan bien como los archivos de la línea de fondo a una hoja de balance funcionando con la escritura de la disposición de Excel antes de que los datos comparen a través de Saturno \ n \ n \ n”;
|