Vraag : Een probleem van de Spreadsheet Perl

Hallo, is

This vandaag verwant met mijn vroeger probleem. Hier in plaats van hard-codeert de vraag zet ik hen in uitblink blad en het lezen van het. Blink blad uit is in bijlage. Maar de output blinkt blad uit niet wordt die met om het even welke rijen wordt geproduceerd, is het leeg. Waar ben gaan van I verkeerd? gewaardeerde hulp

Any, zoals gebruikelijk, werkelijk.

           " codeBody " 
         
           
             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:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:

           
          #! /usr/bin/perl5.10 - w

gebruiks waarschuwingen;
gebruiks Spreadsheet:: WriteExcel:: Groot;
gebruiks Spreadsheet:: ParseExcel;
strikt gebruik;
gebruik IO:: Scalair;
gebruiks Gegevens:: Kipwagen;
gebruik DBI;
gebruik DBD:: MSDB2;


mijn $generated_file;

druk „\ die n \ uw het Posten van de Basislijn dossier nFinding - naam: “;
mijn $dir = „/ms/user/s/sayantag/Posting_ETL“;
chdir ($dir);
$generated_file = `ls - t /ms/user/s/sayantag/Posting_ETL| hoofd -2| staart -1 `;
chomp $generated_file; 
druk „$generated_file“. “ \ n ";

druk „\ die n \ uw Geproduceerd het Posten dossier nFinding - naam: “;
$generated_file = substr ($generated_file, 0, 15);
druk „$generated_file“. “ \ n ";

mijn $xls_file = „/ms/user/s/sayantag/Posting_ETL/“. $generated_file. „.xls“;
druk „$xls_file \ n“;


mijn $workbook = Spreadsheet:: WriteExcel:: Big->new ($xls_file);
mijn $worksheet = $workbook->addworksheet („het Posten de Ingangen van het Dagboek“);
mijn $worksheet1 = $workbook->addworksheet („Authentificatie“);

mijn $format1 = $workbook->add_format ();
mijn $format2 = $workbook->add_format ();
mijn $format3 = $workbook->add_format (num_format => „mm/dd/yy“);


$format1->set_size (12);
$format1->set_bold ();
$format1->set_color („blauw“);
$format1->set_align („centrum“);
$format1->set_bg_color („geel“);

#$format2->set_num_format („Algemeen“);

############# bepaal Werkboek voor SQL vraagt ###############################

mijn $sql_parser = Spreadsheet:: ParseExcel->new ();
mijn $sql_workbook = $sql_parser->parse („/ms/user/s/sayantag/SQL_Queries.xls“);
mijn $sql_worksheet;

############################################################################

mijn $col=0;
mijn $row=0;

foreach mijn $i (

 „JRNL_ID“
, „ACCTNG_PERIOD_ID“
, „FCP_ID“
, „LDGR_TYPE_CDE“
, „BA_HRCHY_ID“
, „BA_NID“
, „LE_HRCHY_ID“
, „LE_NID“
, „REGION_HRCHY_ID“
, „REGION_NID“
, „ASSET_ID“
, „QTP_KEY_ID“
, „CHANGE_CTGRY_ID“
, „ELIMINATION_ID“
, „SRC_ID“
, „JRNL_VAL“
, „EFFECTIVE_DTE“
, „RULE_ID“
, „JRNL_SET_ID“
, „CCY“
, „TRANSLATED_CCY“
, „UOM_CCY“
, „RUN_GROUP_ID“
, „BA_CNTRPTY_ID“
, „INTERCPNY_CNTRPTY_ID“
, „REGION_CNTRPTY_ID“
, „TICKET_REF_NO“
, „MASTER_TICKET_REF_NO“
, „HEADER_ID“	   

)

{

$worksheet->write (0, $col++, $i, $format1);

}

################## Vraag Accesing van SQL het Werkboek van Vragen #####################

voor $sql_worksheet ($sql_workbook->worksheets ()) {

mijn ($row_min, $row_max) = $sql_worksheet->row_range ();
mijn ($col_min, $col_max) = $sql_worksheet->col_range ();

 voor mijn $row ($row_min. $row_max) {##First for##
 voor mijn $col ($col_min. $col_max) {##Second for##
   mijn $cell = $sql_worksheet->get_cell ($row, $col);
     als ($col==0 && $row! =0 && ($sql_worksheet->get_cell ($row, 0) eq „Query1“))  { 
       $col++;
       mijn $query = $sql_worksheet->get_cell ($row, $col) - >value;
##############################################################################
mijn $dbh = DBI->connect („dbi: MSDB2: NQ200001“, '', '', {„RaiseError“ => 1}) of 
          de matrijs „kan niet met gegevensbestand verbinden: $DBI:: errstr“;

mijn $sql = „$query“;



mijn $sth = $dbh->prepare ($sql);

$sth->execute ();



$row = 1;

terwijl (mijn $a = $sth->fetchrow_hashref ()) {

$worksheet->write ($row, bepaalde 0, (($a-> {„JRNL_ID“})? $a-> {„JRNL_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 1, (($a-> {„ACCTNG_PERIOD_ID“})? $a-> {„ACCTNG_PERIOD_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 2, (($a-> {„FCP_ID“})? $a-> {„FCP_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 3, (($a-> {„LDGR_TYPE_CDE“})? $a-> {„LDGR_TYPE_CDE“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 4, (($a-> {„BA_HRCHY_ID“})? $a-> {„BA_HRCHY_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 5, (($a-> {„BA_NID“})? $a-> {„BA_NID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 6, (($a-> {„LE_HRCHY_ID“})? $a-> {„LE_HRCHY_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 7, (($a-> {„LE_NID“})? $a-> {„LE_NID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 8, (($a-> {„REGION_HRCHY_ID“})? $a-> {„REGION_HRCHY_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 9, (($a-> {„REGION_NID“})? $a-> {„REGION_NID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 10, (($a-> {„ASSET_ID“})? $a-> {„ASSET_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 11, (($a-> {„QTP_KEY_ID“})? $a-> {„QTP_KEY_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 12, (($a-> {„CHANGE_CTGRY_ID“})? $a-> {„CHANGE_CTGRY_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 13, (($a-> {„ELIMINATION_ID“})? $a-> {„ELIMINATION_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 14, (($a-> {„SRC_ID“})? $a-> {„SRC_ID“}:  „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 15, (($a-> {„JRNL_VAL“})? $a-> {„JRNL_VAL“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 16, (($a-> {„EFFECTIVE_DTE“})? $a-> {„EFFECTIVE_DTE“}: „[ONGELDIG]“), $format3);
$worksheet->write ($row, bepaalde 17, (($a-> {„RULE_ID“})? $a-> {„RULE_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 18, (($a-> {„JRNL_SET_ID“})? $a-> {„JRNL_SET_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 19, (($a-> {„CCY“})? $a-> {„CCY“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 20, (($a-> {„TRANSLATED_CCY“})? $a-> {„TRANSLATED_CCY“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 21, (($a-> {„UOM_CCY“})? $a-> {„UOM_CCY“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 22, (($a-> {„RUN_GROUP_ID“})? $a-> {„RUN_GROUP_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 23, (($a-> {„BA_CNTRPTY_ID“})? $a-> {„BA_CNTRPTY_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 24, (($a-> {„INTERCPNY_CNTRPTY_ID“})? $a-> {„INTERCPNY_CNTRPTY_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 25, (($a-> {„REGION_CNTRPTY_ID“})? $a-> {„REGION_CNTRPTY_ID“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 26, (($a-> {„TICKET_REF_NO“})? $a-> {„TICKET_REF_NO“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 27, (($a-> {„MASTER_TICKET_REF_NO“})? $a-> {„MASTER_TICKET_REF_NO“}: „[ONGELDIG]“), $format2);
$worksheet->write ($row, bepaalde 28, (($a-> {„HEADER_ID“})? $a-> {„HEADER_ID“}: „[ONGELDIG]“), $format2);


$row++;
}

$sth->finish ();

} ###End als voor SQL het Werkboek ### van Vragen     
   
 

###################### TWEEDE BLAD ####################################

$col=0;


foreach mijn $i („NUM_ROWS“, „NUM_PROCESSED“, „NUM_FAILED“, „NUM_OUTPUT_ROWS“)

{

$worksheet1->write (0, $col++, $i, $format1);

}

##################### het Werkboek van de Vragen van Accesing SQL opnieuw #########################

als ($col==0 && $row! =0 && ($sql_worksheet->get_cell ($row, 0) eq „Query2“))  {
       $col++;
       mijn $query = $sql_worksheet->get_cell ($row, $col) - >value;

mijn $dbh = DBI->connect („dbi: MSDB2: NQ230001“, '', '', {„RaiseError“ => 1}) of
          de matrijs „kan niet met gegevensbestand verbinden: $DBI:: errstr“;

mijn $sql = „$query“;




mijn $sth = $dbh->prepare ($sql);

$sth->execute ();


$row = 1;

terwijl (mijn $a = $sth->fetchrow_hashref ()) {

$worksheet1->write ($row, 0, $a-> {„NUM_ROWS“}, $format2);
$worksheet1->write ($row, 1, $a-> {„NUM_PROCESSED“}, $format2);
$worksheet1->write ($row, 2, $a-> {„NUM_FAILED“}, $format2);
$worksheet1->write ($row, 3, $a-> {„NUM_OUTPUT_ROWS“}, $format2);

$row++;
}

$sth->finish ();
   } #########End als voor de tweede keer (voor het Aantekenvel van de Authentificatie van het Oorspronkelijke geproduceerde dossier) voor SQL het Werkboek van Vragen ########
  }
 }
}
$workbook->close ();
#exit;


als (- s $xls_file) {

de nFile druk „\ n \ wordt om worden vergeleken geproduceerd met non-zero grootte. \ n \ n“;

}

anders {

geproduceerd druk „\ n \ nFile is van nul-grootte. Pls bevestigt de kwesties en regenereert hen opnieuw alvorens \ n \ n“ te vergelijken;

}

           
         

Attachments:

van

SQL-Queries.xls (13 KB) the SQL vragen workbook

Antwoord : Een probleem van de Spreadsheet Perl

De uitdrukkelijke luchthaven heeft een ethernethaven zodat kan het met een bestaand netwerk worden verbonden en zendt dan wifi uit.

Ik ben onbekend met het daadwerkelijke opstellingsproces maar volgens Apple steunt het veiligheid WEP en WPA zodat zou het zoals een andere draadloze router als opstelling behoorlijk zo veilig zijn.

Andere oplossingen

Somebody verzendt emialsvorm mijn hotmailrekening

een programma probeert om het volgende e-mailbericht uit uw naam te verzenden - de Levende post van Vensters

Kleine Statische IP Bedrijfs van de Server 2008 verandering

sharepoint stichting 2010 op met 32 bits?

Word 2003 die - met lijsten, rijen, en cellen werken

Navigeer aan de pagina van een specifiek punt op een gridview

Hyperlink die het diagram/de Tekening activeren

Apple iWeb - hoe te om HTML aan Schijf de website via FTP te publiceren te bewaren of?

sql - datumformaat

Het van een lus voorzien over de tellers van googlekaarten v3