Foro - Perl en Español

No hombre hasta ahí llego. En la base de datos está el campo, además al introducir la cadena meto deliberadamente 'UIDSP103' cuyo campo servicio =3 para así probar la insercion en la tabla pero no me devuelve el servicio y por tanto no inserta. Además tengo lo mismo en otro programa (que he echo de prueba) y estando exacatmente igual (conecto a la misma BD, misma sentencia sql) en ese programa sí lo hace y en este no. Y no lo entiendo, ambos tienen permisos y todo igual, solo que el de prueba sólo busca el servicio en la tabla y me lo devuelve con un print.
En cuanto a lo de 'trama' me he confundido al escribirlo en el foro, pero lo tengo bien en el programa, ya la cagé una vez con eso y ya no se me olvida.
¿Que más puedo probar?

Esto no hay quien lo entienda, a ver, no paro de darle vueltas y yo Juraría que ambos programas estan exactamente iguales, cuando les meto la cadena de ejemplo:
'#0UIDSP103FEC060926TIE090000VALALAT5525,1234SLASLON12525,1234SLOEALT00895'
el programa que sale bien me devuelve:

Código: Seleccionar todo

Fuente:0
UID      SP103
FEC      060926
TIE      090000
VAL      A
LAT      5525,1234
SLA      S
LON      12525,1234
SLO      E
ALT      00895

La cadena sql tiene : INSERT INTO partes_3 SET Northing = '-9089209.99698948', longitud = '12525,1234E', fuente = '0', uid = 'SP103', validez = 'A', Easting = '5088.02311980753', latitud = '5525,1234S', altitud = '00895', dia = '060926', hora = '09:00:00';
En sth hay: DBI::st=HASH(0x81a2d98)

Y me devuelve el servicio correspondiente. Este es correcto, en cambio con el otro programa y ante la misma cadena me devuelve:

Código: Seleccionar todo

Fuente:0
ALT      00895

La cadena sql tiene: INSERT INTO partes_3 SET Northing = '0', longitud =' ', fuente ='0', latitud = ' ', Easting = '833991.704418281', altitud = '00895';
En sth hay: DBI::st=HASH(0x81adb08)

Y en este no devuelve el servicio. Parece que el problema está antes, ya que por arte de magia y sin haber tocado yo nada, resulta que ahora no extrae bien los campos, así, no obtiene el campo 'uid' y por tanto es imposible que me diga a que servicio corresponde.
¿¿Puedes echarme una mano??
El programa es el que está puesto un poco antes.

Vale ya se donde está el problema, pero necesito ayuda para resolverlo.
En el programa, en el bucle de "While (my @canal=....." justo después de "next unless...", en la version anterior ponía:

Código: Seleccionar todo

my($fuente,) = $trama =~ /^#(0|2)/;
$trama{FUE} = $fuente;
print "Fuente:$fuente\n";


Esto lo modificamos para que la cadena buscada pudiera estar en medio de otra cadena más larga, y lo cambiamos por:

Código: Seleccionar todo

my $fuente;
($fuente, $trama) = $trama =~ /(?:#(0|2)($campos)+)/;
$trama{FUE} = $fuente;
print "Fuente:$fuente\n";


Y ahí es donde falla, he cogido el programa que funcionaba y he empezado a añadirle cosas poco a poco y cuando he cambiado esto es cuando ha dejado de funcionar bien.
Lo dicho, no me caen nada bien las expresiones regulares. Alguna idea de cómo cambiarlo??
Gracias.

Muchisimas gracias explorer! ahora ya me funciona todo estupendamente . Ya empiezo a verle la punta a esto, de hecho espero poder terminarlo hoy mismo y empezar a probarlo (con tu ayuda, claro). El programa en sí está acabado pero ahora hay que añadirle algunas funciones más.
Primero debo distinguir entre dos cadenas recibidas, la cadena que hemos tratado hasta ahora y por otra parte la cadena '$uid', es decir el '$' seguido de los 5 caracteres del uid, por ejemplo: '$SP103'. Esta cadena es un especie de 'estoy vivo' que se envía cada 30 seg. ( el parte, (la cadena que tratábamos hasta ahora) puede tardar más en enviarse. Si recibe la cadena de siempre, ejecutará el programa, en cambio si recibe esta nueva cadena, entonces sólo preguntará si hay alguna orden para enviarle y ejecutamos la parte del envio de ordenes. Supongo que lo hago con un if pero (como siempre) no se muy bien que expresion regular tengo que poner o si hay que guardar esta cadena en alguna variable '@campos2' o algo así para sacar el campo UID.

Y por otra parte, tengo que completar el tratamiento de las ordenes, a ver si me explico bien porque es un poco lioso.

a) en el envío de ordenes falta actualizar el campo ack_orden de la tabla de 0 a 1, para ello una vez enviado, la maquina devolverá la cadena '@OC1uid', por ejemplo '@OC1SP103'. si el programa recibe esta cadena, entonces tengo que poner el campo ack_orden = '1'.
Vuelvo a no saber muy bien qué debo poner para identificar esa cadena.

b) El programa también debe recibir ordenes, con lo cual hay que hacer el tratamiento de otra cadena, y este creo que es el problema más grande, porque la cadena comienza igual que la otra, en este caso es:

#xUIDxxxxxFECxxxxxxTIExxxxxx@ODxxxxx@OTxxx@ORxxxx...@OPx

Cambia a partir de TIE, cuando llegue esta cadena debo insertar en la tabla ordenes
UID en origen_orden
FEC en fecha_recepcion
TIE en hora_recepcion
@OD en destino_orden
@OT en tipo_orden
@OR en orden (este campo tiene longitud variable, ya que es la orden en sí)
@OP en prioridad
¿Como puedo hacer para tratar esta nueva cadena?

Y con esto creo que terminaría el programa.
Se que es bastante largo y son varias cosas, espero que puedas echarme una mano en lo que puedas.
Gracias.

se podria preguntar por el caracter '@' ¿no?
si se encuentra en la trama leida entonces trato la cadena como orden, si no la trato como parte. ¿puede ser?

Vayamos por partes, en cuanto a lo de que cómo sabemos que 'SP103' es el nombre del UID, la respuesta es "porque es así y punto", me explico, si recibes una cadena de 6 caracteres que empieza por '@' y va seguido por 5 caracteres, entonces, se trata de un "estoy vivo" y esos 5 caracteres son el UID de la máquina en cuestion. Y en este caso, hay que ver si existe alguna orden en la tabla ordenes para ese UID y enviarlo, cuando llegue el acuse de recibo de esta máquina (@OC1SP103) hay que colocar un '1' en el campo ack_orden de la tabla ordenes, con ello conseguimos que a los 30 segundos, cuando la máquina vuelva a enviar un 'estoy vivo', es decir, un '$SP103', el ack_orden esté a '1' y no le vuelvo a mandar la misma orden.

He estado mirando y creo que la sentencia SQL que tengo que usar es esta:

Código: Seleccionar todo

$sql2=("UPDATE ordenes SET ack_orden='1' WHERE destino_orden = 'UID'")

, pero claro, este 'UID' tengo que sacarlo de la cadena '$SP103' o de la cadena '@OC1SP103' y ahí es donde me quedo atascado.

En cuanto a lo de los retornos de carro, no había pensado en ello la verdad, luego lo consulto pero estoy casi seguro de que sí que van separadas cada cadena por retorno de carro.

Aquí pongo el que creo que es el esquema definitivo del programa.

Código: Seleccionar todo

while (my @canal = $s->can_read(180))
{

       ## Lectura de la trama #############################################################
        my $linea = <>; #con esto leemos la cadena por la entrada estándar
        chomp $linea;   #y le quitamos el final de línea.
        #print "$linea\n";
        if($linea = 'estoy vivo')
        {
           sacar su 'UID';
       si hay orden para ese 'UID' mandar la orden
        }
        else if($linea='@OC1SP103')
        {
       sacar su 'UID'
       actualizar ack_orden = '1' para ese 'UID'
        }
        else if($linea= #xUIDxxxxxFECxxxxxxTIExxxxxx@ODxxxxx@[email protected]@OPx)
        {
       separar los campos
       construir la sentencia sql para insertar los campos
       insertar los campos en la tabla ordenes
        }
        else
        {
       tratamiento de la trama
        }
}