Fråga : Nytt Perl-räknearkParseexcel problem

För det fäste fäst räknearket och kodifiera,
it bör skriva ut ut datan tillfredsställer på det specificerade läget som motsvarar till spara - namnge. Så snart som den slår en AVSLUTA som den skrivar ut - ut förmiddagen för content.


I får efter felet… den, var inte kommande föregående. Vad kan göras för att ta den bort?

------------------------------------------------------

ROW: 9
COLUMN: 17
Cell värderar är P
The ställa i ordning först beståndsdelen är 059L042M6|99*QNDNCA|USD|0302|8759|USD|95|9528.08|928.08|20090507|20091204|059L042M6|OTC4|L|S

Content av ”ska /v/region/na/appl/phoenixfunding/etl/data/qa/SrcFiles/MFOtcTaxlotOpenDelta.txt_20100226” är:
059L042M6|99*QNDNCA|USD|0302|8759|USD|95|9528.08|928.08|20090507|20091204|059L042M6|OTC4|L|S
059L042M6|99*QNDNCA|USD|0302|8759|USD|85|8528.08|828.08|20090507|20091204|059L042M6|OTC4|S|S
059L042M6|99*QNDNCA|USD|0302|8759|USD|75|7528.08|728.08|20090507|20091204|059L042M6|OTC4|L|P
059L042M6|99*QNDNCA|USD|0302|8759|USD|65|6528.08|628.08|20090507|20091204|059L042M6|OTC4|S|P
059105130|99*QNDNCA|EUR|0302|3275|USD|5000|5190.36|590.36|20090501|20120512|'059105130|OTC4|L|S
059105130|99*QNDNCA|EUR|0302|3275|USD|4000|4190.36|490.36|20090501|20120512|'059105130|OTC4|S|S
059105130|99*QNDNCA|EUR|0302|3275|USD|3500|3190.36|390.36|20090501|20120512|'059105130|OTC4|L|P

Row, om meddelandet är 10
Value av, ror för, innan han kallar därefter, är 12
Row för, om meddelandet är appellmetoden för 12
Can inte ”värderar” på ett odefinierat värderar på /ms/user/s/sayantag/Proces s_MF.pl fodrar 35.

---------------------------------------------------------------- > för

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 " " ># för class= " för new (); mitt $workbook = $parser->parse (”/ms/user/s/sayantag/Demo_MF5.xls”); min $worksheet; min %order_of_flat_file; min @data_arr; min $etl; min $path; för $worksheet ($workbook->worksheets ()) { mitt ($row_min, $row_max) = $worksheet->row_range (); mitt ($col_min, $col_max) = $worksheet->col_range (); mitt $row = $row_min + 2; stunder ($row <=$row_max) { trycket ”ror för, om meddelandet är $row \ n”; om, >valuene (för $worksheet->get_cell ($row, 2) - ”AVSLUTAR”) { trycket ”ror after, om meddelandet är $row \ n”; mitt $etl_cell = $worksheet->get_cell ($row, 2); om (definierat ($etl_cell)) { $etl = $etl_cell->value;} mitt $path_cell = $worksheet->get_cell ($row, 1); om (definierat ($path_cell)) { $path = $path_cell->value; $path-=~s \ s$//; tryck”BANA: $path”. ” \ n ";} mitt $path_cell0 = $worksheet->get_cell ($row, 0); om (definierat ($path_cell0)) { $path.= $path_cell0->value; tryck $path_cell0->value. ”\ n”; tryck”BANA: $path”. ” \ n "; tryck ”ETL: $etl”. ” \ n "; tryck”BANA: $path”. ” \ n "; } min $data_row; för min $col ($col_min+3. $col_max) { trycket ”ROR: $row”. ” \ n "; tryck”KOLONN: $col”. ” \ n "; mitt $cell = $worksheet->get_cell ($row, $col); om (definierat ($cell)) { mitt $cell_val = $cell->value; trycket ”cell värderar är $cell_val \ n”; $data_row. = $cell_val. ”,|”; skrivar ut ”första samling beståndsdel är $data_arr [0] \ n”; trycket ”som var nöjt av ””, $path, ””, ska är: \ n ", @data_arr, ”\ n”; } annars {$data_row. = ”,|”; } } $data_row-=~ s {\,|+$} {}; Nr. ta bort att skugga leda i rör. $data_row. = ”\ n”; Nr. tillfoga fodrar avslutar för att avsluta av ror. skjut @data_arr, $data_row; $row++; } annars {nr. tryck ”den lika @data_arren för samlinglooks \ n”; öppna (”FILEHANDLE”, ”>”, $path), då matrisen ”kan inte öppna spara”, $path, ”: $! ”; @data_arr för tryck FILEHANDLE; nära (”FILEHANDLE”); @data_arr = (); $row = $row+2; trycket ”värderar av ror, innan det kallar därefter, är $row \ n”; därefter; } $order_of_flat_file {$etl} = $path; } } för min (@etl_val) $curr_etl_val { skriv ut $order_of_flat_file {$curr_etl_val}, ”\ n”; } foreach min (@etl_val) $curr_etl { tryck”\ nNow som utför workflow $curr_etl \ n”; `för $curr_etl ”REPO_SVC_PhxR2Qa” ”Domain_NY_Qa” ”för NjuX2mfP0k” ”PhoenixFunding” för `- ksh Command_Line_Etl.ksh ”PhoenixFundingAdmin”; } tryck”\ nAll sparar frambrings efter spring workflowsna. Konspirera dessa sparar, såväl som grundlinjen sparar till ett räkneark vid spring som Excel ställer in skrivar, för data jämför till och med Saturn \ n \ n \ n”; Attachments: för >