Foro - Perl en Español

Muchisimas gracias, no se me hubiera ocurrido, yo estaba probando con la funcion 'localtima(time)' y no paraba de darle vueltas , estoy probando ahora lo del IO::Select. Ya contaré que tal me ha ido.
Gracias.

Hola, no se si debería abrir otro hilo en la parte de Bases de Datos, pero como es una duda de este programa en principio la pongo aqui.
A ver, el problema es que debo buscar en una tabla "ordenes" si existe alguna orden para el vehiculo que esta conectado en ese momento, y si es asi, enviarle dicha orden. Pero si no existe ninguna orden para ese vehiculo ¿Que me devuelve el mySql? ¿Devuelve un 'NULL'? estaba pensando en algo así:

Código: Seleccionar todo

my $sth2 = $dbh1->prepare("SELECT orden FROM ordenes WHERE destino_orden='$trama{UID}'")
       or die $dbh1->errstr;
$sth2->execute()   or die $sth2->errstr;
my $orden = $sth2->fetchrow_array();
if($orden!='NULL')
    print "$orden";

Que os parece? ¿Se puede mejorar? (supongo que si)

Prueba... si sale algún error nos lo dices...

¿De dónde has sacado que las funciones del DBI devuelven el string 'NULL'?

Tienes toda la razón no sale, y no se como ponerlo, por favor que alguien me ayude!! he probado también con:

Código: Seleccionar todo

my $sth2=$dbh->prepare("IF EXISTS(SELECT orden FROM ordenes WHERE destino_orden='$trama{UID}')
             SELECT orden FROM ordenes WHERE destino_orden='$trama{UID}'")
    or die $dbh->errstr;
sth2->execute() or die $sth2->errstr;
my $orden= $sth2->fetchrow_array();
print "$orden";


Pero tampoco, no devuelve nada a pesar de que introduzco una UID que está en la tabla. En realidad la sentencia no es exactamente asi, esto es una prueba, la sentencia debe realmente buscar en la tabla "ordenes" si existe alguna orden con el campo "destino_orden = $trama{UID}" y que el campo ack_orden=0, si es así, enviarla, 'print', esperar a que responda el camion con 'cadenaok' (responde antes de 15 segundos) y entonces actualizar con UPDATE ack_orden=1. ¿Me podrías echar una mano con esto?

Por otra parte, la solucion que me diste explorer no me funciona, ya al arrancar el telnet me dice:

"my" variable $trama masks earlier declaration in same scope

y al introducir la cadena me cierra la conexion y me sale

Unmatched ( in regex; marked by <-- HERE in m/(HERE (?:#(0|2)(UID.{5}|FEC.{6}|VAL.|......sigue la lista de campos...|PTO.)+)/

Sabes de que puede ser o te quedas con la misma cara que yo??
Si te sirve de ayuda vuelvo a poner el programa tal y como esta ahora.
Gracias.

'my $trama' lo tienes puesto dos veces y por eso Perl te avisa. La línea que pone

Código: Seleccionar todo

my ($fuente, $trama) = $trama =~ /(?:#(0|2)($campos)+)/;

debes cambiarla por

Código: Seleccionar todo

my $fuente;
($fuente, $trama) = $trama =~ /(?:#(0|2)($campos)+)/;

Por lo que respecta al SQL, yo nunca he usado lo del IF EXISTS, por lo ahí no puedo ayudarte. Yo haría un SELECT normal, con la opción WHERE. La documentación de EXISTS está en http://dev.mysql.com/doc/refman/4.1/pt/ ... eries.html . Creo que el IF sobra.

enviarla, 'print', esperar a que responda el camion con 'cadenaok' (responde antes de 15 segundos) y entonces actualizar con UPDATE ack_orden=1.

Esto puede ser algo complicado... pues estamos ya hablando de sincronización entre equipos. ¿Qué ocurre si pasan 15 segundos y no hay respuesta? ¿Qué pasa si en esos 15 segundos seguimos recibiendo tramas del/de otros camiones?

Si lo estás haciendo con programas distintos entonces es otro problema distinto...

Gracias por responderme tan rápido, me estas ayudando un monton.
Lo de la trama ya me imaginaba que era algo así, pero no era capaz de verlo, ya estoy algo mareado de darle vueltas al mismo código. Graicas.
Lo he cambiado y ya no me da ese fallo, pero me sigue cerrando la conexion y me sigue diciendo lo del Unmatched (in regex......) segun esto en la linea 102.

En cuanto a tu pregunta, si pasan 15 segundos y no hay respuesta, entiendo que no la ha recibido y le vuelvo a enviar la orden, y sólo recibirá cadenas del vehículo que abra la conexión, si otro vehiculo abre la conexion lo hará con otra instancia de este programa.
Gracias.

El problema está en las expresiones regulares, naturalmente.

La primera donde dicedebe ser

Muchas gracias ese era el fallo, odio las expresiones regulares eh! me traen loco!
En cuanto a la sentencia SQL, mi primera idea fue la opción que me das pero ¿Que ocurre si no existe ninguna orden para esa unidad? ¿que me devuelve el SELECT? porque si no hay orden alguna, entonces no tengo que mandar (print) nada.

Si SELECT no devuelve nada, entonces el número de filas (rows) devueltas es 0, y de esa manera sabes que no debes mandar nada (hacer un if() y comprobarlo).

Lo dice el manual:

fetchrow_array

Código: Seleccionar todo

     @ary = $sth->fetchrow_array;

An alternative to fetchrow_arrayref. Fetches the next row of data and returns it as a list containing the field values. Null fields are returned as undef values in the list.

If there are no more rows or if an error occurs, then fetchrow_array returns an empty list. You should check $sth->err afterwards (or use the RaiseError attribute) to discover if the empty list returned was due to an error.

If called in a scalar context for a statement handle that has more than one column, it is undefined whether the driver will return the value of the first column or the last. So don't do that. Also, in a scalar context, an undef is returned if there are no more rows or if an error occurred. That undef can't be distinguished from an undef returned because the first field value was NULL. For these reasons you should exercise some caution if you use fetchrow_array in a scalar context.

Que quiere decir:

fetchrow_array

Código: Seleccionar todo

     @ary = $sth->fetchrow_array;

Una alternativa a fetchrow_arrayref. Recupera la siguiente fila de datos y los devuelve como una lista conteniendo los valores de los campos. Los campos nulos son devueltos como undef en la lista.

Si no hay más filas o si ocurre un error, entonces fetchrow_array devuelve una lista vacía. Debes comprobar después con $sth->err (o con el atributo RaiseError) si la lista vacía fue debida a un error.

Si es llamado en contexto escalar para una sentencia que tenga más de una columna, no está definido lo que el driver devolverá, si el valor de la primera o de la última columna. Así que no lo haga. También, en contexto escalar, se devuelve un undef si no hay más filas o si ocurre un error. Este undef no puede distinguirse del caso de que el primer campo sea NULL. Por estas razones debe tener alguna precaución si usa fetchrow_array en contexto escalar.

Date cuenta de que además te recuerda que estás usando fetchrow_array en contexto escalar:y eso es más difícil de tratar que haciendolo en contexto lista:

Esto es el cuento de nunca acabar. Sabrías decirme por qué ahora no me devuelve el servicio cuando antes si lo hacía?? No me devuelve nada y por tanto nunca entra en el 'if' y nunca inserta nada
Por favor necesito terminar esto ya, ayudaaaaa.
El programa está como más arriba, solo he añadido al final, despues del 'print "\$INFOK*\r\n";'

Código: Seleccionar todo

my $sth2=$dbh1->prepare("SELECT orden FROM ordenes WHERE destino_orden='trama{UID}' AND ack_orden = '0'")
       or die $dbh1->errstr;
$sth2->execute()     or die $sth2->errstr;
my @orden = $sth2->fetchrow_array();
if (@orden)
       print " @orden ";


Aunque no creo que influya ya que lo he probado sin añadirle nada y tampoco me devuelve el servicio, yo creo que puede ser algo del bucle o del IO::Select.
Gracias.