class= " lineNumbers "
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=
># " class= " id= " codeSnippet763531 new ();
мо $workbook = $parser->parse («/ms/user/s/sayantag/Demo_MF5.xls»);
мое $worksheet;
мое %order_of_flat_file;
мое @data_arr;
мое $etl;
мое $path;
для $worksheet ($workbook->worksheets ()) {
мо ($row_min, $row_max) = $worksheet->row_range ();
мо ($col_min, $col_max) = $worksheet->col_range ();
мо $row = $row_min + 2;
пока ($row <=$row_max) {
печать «рядок раньше если заявлением будет $row \ n»;
если (ne «КОНЕЦ» >value $worksheet->get_cell ($row, 2) -) {, то
печать «рядок поже если заявлением будет $row \ n»;
мо $etl_cell = $worksheet->get_cell ($row, 2);
если (определено, то ($etl_cell)) {
$etl = $etl_cell->value;}
мо $path_cell = $worksheet->get_cell ($row, 1);
если (определено, то ($path_cell)) {
$path = $path_cell->value;
s/\ s$//=~ $path;
КУРС печати «: $path». » \ n ";}
мо $path_cell0 = $worksheet->get_cell ($row, 0);
если (определено, то ($path_cell0)) {
$path.= $path_cell0->value;
печать $path_cell0->value. «\ n»;
КУРС печати «: $path». » \ n ";
печать «ETL: $etl». » \ n ";
КУРС печати «: $path». » \ n ";
}
мое $data_row;
для моего $col ($col_min+3. $col_max) {
РЯДОК печати «: $row». » \ n ";
КОЛОНКА печати «: $col». » \ n ";
мо $cell = $worksheet->get_cell ($row, $col);
если (определено ($cell)) {, то
мо $cell_val = $cell->value;
печать «значение клетки будет $cell_val \ n»;
$data_row. = $cell_val. «|»;
напечатайте «перво блок элемент $data_arr [0] \ n»;
напечатайте «содержание «», $path, «» будет: \ n ", @data_arr, «\ n»;
} еще {$data_row. = «|»;
}
}
=~ s $data_row {\|+$} {}; # извлекайте отставая трубы.
$data_row. = «\ n»; # добавьте линию конец к концу рядка.
нажмите @data_arr, $data_row;
$row++;
}
еще {# печать «, котор блок смотрит как @data_arr \ n»;
раскройте («FILEHANDLE», «>», $path) или умрите «не смогите раскрыть архив», $path, «: $! »;
@data_arr печати FILEHANDLE;
конец («FILEHANDLE»);
@data_arr = ();
$row = $row+2;
печать «значение рядка перед вызывать затем будет $row \ n»;
затем;
}
$order_of_flat_file {$etl} = $path;
}
}
для моего $curr_etl_val (@etl_val) {
напечатайте $order_of_flat_file {$curr_etl_val}, «\ n»;
}
foreach мои $curr_etl (@etl_val) {
«печати \ nNow исполняя поток операций $curr_etl \ n»;
`» $curr_etl «REPO_SVC_PhxR2Qa» «Domain_NY_Qa» «NjuX2mfP0k» «PhoenixFunding ksh Command_Line_Etl.ksh «PhoenixFundingAdmin» `;
}
печать «\ архивы nAll произведены после бежать потоки операций. Прокладывать курс этих архивов так же, как архивы базиса к электронная таблица путем бежать сценарий установки Эксел прежде чем данные сравнивают через Сатурн \ n \ n \ n»;
|