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:
|
" codeBody "
#! /usr/bin/perl5.10 - w
gebruiks waarschuwingen;
gebruiks Spreadsheet:: ParseExcel;
strikt gebruik;
gebruik IO:: Scalair;
gebruiks Gegevens:: Kipwagen;
mijn @etl_val = @ARGV;
„@etl_val“ druk. “ \ n ";
mijn $parser = Spreadsheet:: ParseExcel->new ();
mijn $workbook = $parser->parse („/ms/user/s/sayantag/Demo_MF5.xls“);
mijn $worksheet;
mijn %order_of_flat_file;
mijn @data_arr;
mijn $etl;
mijn $path;
voor $worksheet ($workbook->worksheets ()) {
mijn ($row_min, $row_max) = $worksheet->row_range ();
mijn ($col_min, $col_max) = $worksheet->col_range ();
mijn $row = $row_min + 2;
terwijl ($row <=$row_max) {
druk „Rij voordien als de verklaring $row \ n“ is;
als ($worksheet->get_cell ($row, 2) - >value Ne „EIND“) {
druk „Rij na als de verklaring $row \ n“ is;
mijn $etl_cell = $worksheet->get_cell ($row, 2);
als (bepaald ($etl_cell)) {
$etl = $etl_cell->value;}
mijn $path_cell = $worksheet->get_cell ($row, 1);
als (bepaald ($path_cell)) {
$path = $path_cell->value;
$path =~ s \ s$//;
druk „WEG: $path“. “ \ n ";}
mijn $path_cell0 = $worksheet->get_cell ($row, 0);
als (bepaald ($path_cell0)) {
$path.= $path_cell0->value;
druk $path_cell0->value. „\ n“;
druk „WEG: $path“. “ \ n ";
druk „ETL: $etl“. “ \ n ";
druk „WEG: $path“. “ \ n ";
}
mijn $data_row;
voor mijn $col ($col_min+3. $col_max) {
druk „RIJ: $row“. “ \ n ";
druk „KOLOM: $col“. “ \ n ";
mijn $cell = $worksheet->get_cell ($row, $col);
als (bepaald ($cell)) {
mijn $cell_val = $cell->value;
de druk de „waarde van de Cel is $cell_val \ n“;
$data_row. = $cell_val. „|“;
druk het „Eerste serieelement is $data_arr [0] \ n“;
druk „Inhoud van „“, $path, „“ zal zijn: \ n ", @data_arr, „\ n“;
} anders {$data_row. = „|“;
}
}
$data_row =~ s {\|+$} {}; # Verwijder slepende pijpen.
$data_row. = „\ n“; # Voeg lijneind aan eind van rij toe.
duw @data_arr, $data_row;
$row++;
}
anders {# kijkt de druk de „Serie als @data_arr \ n“;
open („FILEHANDLE“, „>“, $path) of matrijs „kan het dossier“ openen niet, $path, „: $! “;
druk FILEHANDLE @data_arr;
sluit („FILEHANDLE“);
@data_arr = ();
$row = $row+2;
druk „Waarde van rij alvorens daarna te roepen $row \ n“ is;
daarna;
}
$order_of_flat_file {$etl} = $path;
}
}
voor mijn (@etl_val) $curr_etl_val {
druk $order_of_flat_file {$curr_etl_val}, „\ n“;
}
foreach mijn (@etl_val) $curr_etl {
druk „\ die nNow werkschema $curr_etl \ n uitvoeren“;
`ksh Command_Line_Etl.ksh „PhoenixFundingAdmin“ „NjuX2mfP0k“ „PhoenixFunding“ $curr_etl „REPO_SVC_PhxR2Qa“ „Domain_NY_Qa“ `;
}
de druk „\ nAll dossiers worden geproduceerd na het runnen van de werkschema's. Breng deze dossiers evenals basislijndossiers aan een spreadsheet in kaart door het manuscript van de Opstelling van Excel in werking te stellen alvorens de Gegevens door Saturnus \ n \ n \ n“ vergelijken;
|
