#! /usr/bin/perl5.10 - w
Warnungen verwenden;
Gebrauch Verteilungsbogen:: ParseExcel;
strenges verwenden;
Gebrauch IO:: Skalar;
Gebrauch Daten:: Kipper;
mein @etl_val = @ARGV;
Druck „@etl_val“. “ \ n ";
mein $parser = Verteilungsbogen:: ParseExcel->new ();
mein $workbook = $parser->parse („/ms/user/s/sayantag/Demo_MF5.xls“);
mein $worksheet;
mein %order_of_flat_file;
mein @data_arr;
mein $etl;
mein $path;
für $worksheet ($workbook->worksheets ()) {
mein ($row_min, $row_max) = $worksheet->row_range ();
mein ($col_min, $col_max) = $worksheet->col_range ();
mein $row = $row_min + 2;
während ($row <=$row_max) {
Druck „Reihe vorher, wenn Aussage $row \ n ist“;
wenn ($worksheet->get_cell ($row, 2) - >value Ne „ENDE“) {
Druck „Reihe nachher, wenn Aussage $row \ n ist“;
mein $etl_cell = $worksheet->get_cell ($row, 2);
wenn (definiert ($etl_cell)) {
$etl = $etl_cell->value;}
mein $path_cell = $worksheet->get_cell ($row, 1);
wenn (definiert ($path_cell)) {
$path = $path_cell->value;
$path =~ s \ s$//;
Druck „WEG: $path“. “ \ n ";}
mein $path_cell0 = $worksheet->get_cell ($row, 0);
wenn (definiert ($path_cell0)) {
$path.= $path_cell0->value;
Druck $path_cell0->value. „\ n“;
Druck „WEG: $path“. “ \ n ";
Druck „ETL: $etl“. “ \ n ";
Druck „WEG: $path“. “ \ n ";
}
mein $data_row;
für mein $col ($col_min+3. $col_max) {
Druck „REIHE: $row“. “ \ n ";
Druck „SPALTE: $col“. “ \ n ";
mein $cell = $worksheet->get_cell ($row, $col);
wenn (definiert ($cell)) {
mein $cell_val = $cell->value;
Druck „Zellenwert ist $cell_val \ n“;
$data_row. = $cell_val. „|“;
drucken „erst Feldelement ist $data_arr [0] \ n“;
„Inhalt von „drucken“, $path, „“ ist: \ n ", @data_arr, „\ n“;
} sonst {$data_row. = „|“;
}
}
$data_row =~ s {\|+$} {}; # schleppende Rohre entfernen.
$data_row. = „\ n“; # Linie Ende Ende der Reihe hinzufügen.
@data_arr, $data_row drücken;
$row++;
}
sonst {# Druck, „, welches die Reihe wie @data_arr \ n aussieht“;
öffnen („FILEHANDLE“, „>“, $path) oder sterben „kann die Akte nicht öffnen“, $path, „: $! “;
Druck FILEHANDLE @data_arr;
Abschluss („FILEHANDLE“);
@data_arr = ();
$row = $row+2;
Druck „Wert der Reihe, bevor er zunächst benennt, ist $row \ n“;
zunächst;
}
$order_of_flat_file {$etl} = $path;
}
}
für mein $curr_etl_val (@etl_val) {
$order_of_flat_file {$curr_etl_val}, „\ n“ drucken;
}
foreach meine $curr_etl (@etl_val) {
Druck„\ nNow, das Arbeitsfluß $curr_etl \ n“ durchführt;
`KSH Command_Line_Etl.ksh „PhoenixFundingAdmin“ „NjuX2mfP0k“ „PhoenixFunding“ $curr_etl „REPO_SVC_PhxR2Qa“ „Domain_NY_Qa“ `;
}
nach dem Betrieb der Arbeitsflüsse Druck „\ nAll Akten erzeugt. Diese Akten sowie die Grundlinienakten grafisch darstellen zu einem Verteilungsbogen, indem Sie den Excel-Einstellungsindex laufen lassen, bevor Daten durch Saturn \ n \ n \ n“ vergleichen;
|