class= " lineNumbers " do
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= do
># notpretty " do class= " do id= " codeSnippet763531 do new ();
meu $workbook = $parser->parse (“/ms/user/s/sayantag/Demo_MF5.xls”);
meu $worksheet;
meu %order_of_flat_file;
meu @data_arr;
meu $etl;
meu $path;
para $worksheet ($workbook->worksheets ()) {
meu ($row_min, $row_max) = $worksheet->row_range ();
meu ($col_min, $col_max) = $worksheet->col_range ();
meu $row = $row_min + 2;
quando ($row <=$row_max) {
cópia “fileira antes se a indicação é $row \ n”;
se (ne “EXTREMIDADE” do >value de $worksheet->get_cell ($row, 2) -) {
cópia “fileira em seguida se a indicação é $row \ n”;
meu $etl_cell = $worksheet->get_cell ($row, 2);
se (definido ($etl_cell)) {
$etl = $etl_cell->value;}
meu $path_cell = $worksheet->get_cell ($row, 1);
se (definido ($path_cell)) {
$path = $path_cell->value;
s \ s$//do =~ de $path;
TRAJETO da cópia “: $path”. ” \ n ";}
meu $path_cell0 = $worksheet->get_cell ($row, 0);
se (definido ($path_cell0)) {
$path.= $path_cell0->value;
cópia $path_cell0->value. “\ n”;
TRAJETO da cópia “: $path”. ” \ n ";
cópia “ETL: $etl”. ” \ n ";
TRAJETO da cópia “: $path”. ” \ n ";
}
meu $data_row;
para meu $col ($col_min+3. $col_max) {
FILEIRA da cópia “: $row”. ” \ n ";
COLUNA da cópia “: $col”. ” \ n ";
meu $cell = $worksheet->get_cell ($row, $col);
se (definido ($cell)) {
meu $cell_val = $cell->value;
a cópia da “valor pilha é $cell_val \ n”;
$data_row. = $cell_val. “|”;
imprimem “primeiro disposição elemento é $data_arr [0] \ n”;
imprimir o “índice de “”, $path, “” será: \ n ", @data_arr, “\ n”;
} mais {$data_row. = “|”;
}
}
=~ s de $data_row {\|+$} {}; # remover as tubulações de arrasto.
$data_row. = “\ n”; # adicionar a linha extremidade ao fim da fileira.
empurrar o @data_arr, $data_row;
$row++;
}
mais {# cópia “que a disposição olha como o @data_arr \ n”;
abrir (“FILEHANDLE”, “>”, $path) ou morrer “não pode abrir a lima”, $path, “: $! ”;
@data_arr da cópia FILEHANDLE;
fim (“FILEHANDLE”);
@data_arr = ();
$row = $row+2;
a cópia “valor da fileira antes de chamar em seguida é $row \ n”;
em seguida;
}
$order_of_flat_file {$etl} = $path;
}
}
para meu $curr_etl_val (@etl_val) {
imprimir $order_of_flat_file {$curr_etl_val}, “\ n”;
}
foreach meus $curr_etl (@etl_val) {
“da cópia \ nNow que executa os trabalhos $curr_etl \ n”;
`” de $curr_etl “REPO_SVC_PhxR2Qa” “Domain_NY_Qa” de “NjuX2mfP0k” “PhoenixFunding do `KSH Command_Line_Etl.ksh “PhoenixFundingAdmin”;
}
a cópia “\ limas do nAll são geradas após ter funcionado os trabalhos. Traçar estas limas assim como as limas da linha de base a um spreadsheet funcionando o certificado da instalação de Excel antes que os dados comparem através de Saturno \ n \ n \ n”;
|
