Questione : Un problema del foglio elettronico del Perl

Ciao, il

This è collegato oggi con il mio problema più iniziale. Qui anziché duro-codificazione la domanda sto mettendoli in uno strato di supremazia e sto leggendoli. Il foglio di supremazia è allegato. Ma l'uscita eccelle lo strato non sta ottenendo generata con tutte le file, esso è in bianco. Dove sto andando male? l'aiuto del

Any, come di consueto, realmente ha apprezzato. class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
># notpretty " del class= " del id= " codeSnippet786631 del 
new ($xls_file);
mio $worksheet = $workbook->addworksheet (“entrate di giornale di invio„);
mio $worksheet1 = $workbook->addworksheet (“autenticazione„);

mio $format1 = $workbook->add_format ();
mio $format2 = $workbook->add_format ();
mio $format3 = $workbook->add_format (=> “mm/dd/yy del num_format ");


$format1->set_size (12);
$format1->set_bold ();
$format1->set_color (“azzurro ");
$format1->set_align (“centro ");
$format1->set_bg_color (“colore giallo ");

#$format2->set_num_format (“General ");

Il ############# definisce il libro di esercizi per il ############################### di domande di SQL

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

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

il mio $col=0;
il mio $row=0;

foreach il mio $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);

}

La domanda di Accesing del ################## da SQL interroga il ##################### del libro di esercizi

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

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

 per il mio $row ($row_min. $row_max) {for## del ##First
 per il mio $col ($col_min. $col_max) {for## del ##Second
   mio $cell = $sql_worksheet->get_cell ($row, $col);
     se ($col==0 && $row! && =0 (eq “Query1„ di $sql_worksheet->get_cell ($row, 0)))  { 
       $col++;
       mio $query = $sql_worksheet->get_cell ($row, $col) - >value;
##############################################################################
mio $dbh = DBI->connect (“dbi: MSDB2: NQ200001„, '', '', {“RaiseError„ => 1}) o 
          morire “non può collegarsi a base di dati: $DBI:: errstr„;

mio $sql = “$query„;



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

$sth->execute ();



$row = 1;

mentre (mio $a = $sth->fetchrow_hashref ()) {

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


$row++;
}

$sth->finish ();

} il ###End se per SQL interroga il ### del libro di esercizi     
   
 

#################################### DELLO STRATO DEL ###################### SECONDO

$col=0;


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

{

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

}

Il ##################### Accesing SQL interroga ancora il ######################### del libro di esercizi

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

mio $dbh = DBI->connect (“dbi: MSDB2: NQ230001„, '', '', {“RaiseError„ => 1}) o
          morire “non può collegarsi a base di dati: $DBI:: errstr„;

mio $sql = “$query„;




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

$sth->execute ();


$row = 1;

mentre (mio $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 se per la seconda volta (per il manuale di autenticazione della lima generata originale) per SQL interroga il ######## del libro di esercizi
  }
 }
}
$workbook->close ();
#exit;


se (- s $xls_file) {

“\ n della stampa \ nFile essere confrontato è generato con il formato diverso da zero. \ n \ n„;

}

altrimenti {

“\ n \ nFile della stampa generato è del zero-formato. La difficoltà di Pls le edizioni e li rigenera ancora prima del paragone \ n \ n„;

}
class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

il nome di schedario " del class= di >SQL-Queries.xls " fileSize " > (13 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)
il >the SQL " di descrizione " del class= del
il class= di
del >
class= del

Risposta : Un problema del foglio elettronico del Perl

L'aeroporto espresso ha un orificio di Ethernet in modo da può essere collegato ad una rete attuale ed allora trasmette per radio il wifi.

Sono non pratico con il processo reale di messa a punto ma secondo Apple sostiene la sicurezza di WPA e di WEP in modo da sarebbe sicuro quanto qualunque altro router senza fili se messa a punto correttamente.
Altre soluzioni  
 
programming4us programming4us