Using perl Syntax Highlighting
- $sql_eventos:="SELECT id,descrip_comp,fecha_sale,fecha_entra,dispositivo,medidas,causa,id_causa,id_anexo FROM t_eventos te, c_tipo_componentes ctc, c_componentes cc WHERE te.subestacion='CIE' AND tipo_evento like 'D-C%' AND (fecha_sale BETWEEN '2013-01-01 00:00:00' AND '2013-12-31 23:59:59') AND indice='S' AND te.id_tipo_componente=ctc.id_tipo_componente AND ctc.id_componente=cc.id_componente GROUP BY id,descrip_comp,fecha_sale,fecha_entra,dispositivo,medidas,causa,id_causa,id_anexo ORDER BY fecha_sale,descrip_comp"
- $sth= $dbh->prepare($sql_eventos) or die $DBI::errstr;
- $sth->execute();
- $fetchall_arrayref = $sth->fetchall_arrayref();
- $tuplas = $sth->rows;
- print "TUPLAS: -->$tuplas<-- <br>"; #Efectivamente trae 3 registros
- my $fetchall_arrayref = $sth->fetchall_arrayref();
- for my $i (0 .. $#$fetchall_arrayref) {
- print "Registro $i\n";
- my $registro_ref = $fetchall_arrayref->[$i]; # El elemento $i apuntado por $fechall_arrayref contiene una referencia a un array
- for my $columna (@$registro_ref) { # Mostrar todos los registros
- print "\t$columna\n";
- }
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¿Me puedes apoyar, por favor, a encontrar cuál es el error? No doy con él y solo muestra:
SQL_EVENTO: SELECT id,descrip_comp,fecha_sale,fecha_entra,dispositivo,medidas,causa,id_causa,id_anexo FROM t_eventos te, c_tipo_componentes ctc, c_componentes cc WHERE te.subestacion='EDO' AND tipo_evento like 'DISPARO-RECIERRE%' AND (fecha_sale BETWEEN '2013-01-01 00:00:00' AND '2013-12-31 23:59:59') AND indice='S' AND te.id_tipo_componente=ctc.id_tipo_componente AND ctc.id_componente=cc.id_componente GROUP BY id,descrip_comp,fecha_sale,fecha_entra,dispositivo,medidas,causa,id_causa,id_anexo ORDER BY fecha_sale,descrip_comp
TUPLAS: -->3<--