Cuestión : Un problema de la hoja de balance del Perl

Hola, el

This se relaciona conmigo problema anterior hoy. Aquí en vez de la duro-codificación la pregunta los estoy poniendo en una hoja del sobresalir y los estoy leyendo. Se ata la hoja del sobresalir. Pero la salida sobresale la hoja no está consiguiendo generada con cualquier fila, él es en blanco. ¿Dónde estoy saliendo mal? la ayuda del

Any, como de costumbre, apreció realmente. class= > " claro " 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);
mi $worksheet = $workbook->addworksheet (“entradas de diario de la fijación”);
mi $worksheet1 = $workbook->addworksheet (“autentificación”);

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


$format1->set_size (12);
$format1->set_bold ();
$format1->set_color (“azul ");
$format1->set_align (“centro ");
$format1->set_bg_color (“amarillo ");

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

El ############# define el libro de trabajo para el ############################### de las preguntas del SQL

mi $sql_parser = hoja de balance:: ParseExcel->new ();
mi $sql_workbook = $sql_parser->parse (“/ms/user/s/sayantag/SQL_Queries.xls”);
mi $sql_worksheet;

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

mi $col=0;
mi $row=0;

foreach mi $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 pregunta de Accesing del ################## del SQL pregunta el ##################### del libro de trabajo

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

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

 para mi $row ($row_min. $row_max) {for## del ##First
 para mi $col ($col_min. $col_max) {for## del ##Second
   mi $cell = $sql_worksheet->get_cell ($row, $col);
     ¡si ($col==0 && $row! && =0 eq “Query1” (de $sql_worksheet->get_cell ($row, 0)))  { 
       $col++;
       mi $query = $sql_worksheet->get_cell ($row, $col) - >value;
##############################################################################
mi $dbh = DBI->connect (“dbi: MSDB2: NQ200001”, '', '', {“RaiseError” => 1}) o 
          morir “no puede conectar con la base de datos: $DBI:: errstr”;

mi $sql = “$query”;



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

$sth->execute ();



$row = 1;

mientras que (mi $a = $sth->fetchrow_hashref ()) {

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


$row++;
}

$sth->finish ();

} el ###End si para el SQL pregunta el ### del libro de trabajo     
   
 

#################################### DE LA HOJA DEL ###################### SEGUNDO

$col=0;


foreach mi $i (“NUM_ROWS”, “NUM_PROCESSED”, “NUM_FAILED”, “NUM_OUTPUT_ROWS”)

{

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

}

El ##################### Accesing SQL pregunta el ######################### del libro de trabajo otra vez

¡si ($col==0 && $row! && =0 eq “Query2” (de $sql_worksheet->get_cell ($row, 0)))  {
       $col++;
       mi $query = $sql_worksheet->get_cell ($row, $col) - >value;

mi $dbh = DBI->connect (“dbi: MSDB2: NQ230001”, '', '', {“RaiseError” => 1}) o
          morir “no puede conectar con la base de datos: $DBI:: errstr”;

mi $sql = “$query”;




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

$sth->execute ();


$row = 1;

mientras que (mi $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 si para la segunda vez (para la hoja de trabajo de la autentificación del archivo generado original) para el SQL pregunta el ######## del libro de trabajo
  }
 }
}
$workbook->close ();
#exit;


si (- s $xls_file) {

“\ n de la impresión \ nFile ser comparado se genera con tamaño diferente a cero. \ n \ n”;

}

{

“\ n \ nFile de la impresión generada está de cero-tamaño. El arreglo de Pls las ediciones y los regenera otra vez antes de comparar \ n \ n”;

}
class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
el >the SQL de la " descripción " del class= del
el class= de
del >
class= del

Respuesta : Un problema de la hoja de balance del Perl

El aeropuerto expreso tiene un puerto de Ethernet así que puede ser conectado con una red existente y después difunde wifi.

Soy desconocedor con el proceso real de la disposición pero según Apple apoya seguridad de WEP y de WPA así que sería tan seguro como cualquier otro ranurador sin hilos si disposición correctamente.
Otras soluciones  
 
programming4us programming4us