Foro - Perl en Español

Es por efecto de las comillas dobles. Con ellas, Perl intenta interpolar todas las variables que existan dentro de ellas, además de otras expresiones, como \r y \n. Si en cambio, usas comillas simples, la salida es tal cual la pones, así que '\r' en realidad son dos caracteres: '\' y 'r'.

Si necesitas imprimir el '$', entonces hay que indicarle que ese signo no indica que es comienzo de una variable escalar, sino que de verdad es el signo dolar. Hay que escaparlo:

Código: Seleccionar todo

print "\$INFOK*\r\n";

Resuelto lo del acuse de recibo, gracias, ya no me acordaba de que la barra se usaba precísamente para eso, ya no se me olvida. Ahora tengo un problema más grave:
Este programa debe tratar la cadena que te mencioné y sólo esa cadena, pero el vehículo está enviando mensajes constantemente y el programa debe escuchar el puerto todo el tiempo y sólo si le llega una cadena que empieza por #xUIDxxxxx.... entonces le realizo el tratamiento, el problema es que tal y como está ahora el programa si le llega una cadena que contenga alguno de los campos por ej:

nndie jdsferiq riqVALAasf sfa f fsergSLONfadf#0UIDTR001FEC061015.....

Toma VALA y SLON como parte de la cadena, y no debe ser así. O incluso el camion se realiza chequeos y envia también la cadena '$INFOK*\r\n' que tampoco tengo por qué tratar.
¿Como puedo solucionar esto?? ¿Como hago para que no cierre la conexion al final y se quede escuchando el puerto todo el tiempo?

Por otra parte, el programa debe aprovechar la conexión establecida por los vehículos (que son los que establecen siempre la conexión) y buscar en una tabla de la BD llamada "ordenes", comprobar si para esa determinada 'UID' de vehículo hay algun mensaje (por ej. ve a tales coordenadas que hay declarado otro incendio) y si es así enviarselo.
¿Alguna idea?

Para lo primero, podría ser algo como un bucle infinito, y deshechando las líneas que no comiencen por '#(0|2)UID':

Código: Seleccionar todo

while ($trama = <>) {

    next unless $trama =~ /^#(0|2)UID/;

    # ....
}

Perdón, no he leído bien el mensaje.

Parece que primero habrá que extraer la trama posible de la línea leída.

Además, decías que había que esperar por una cadena que empezase por #(0|2)UID y en el ejemplo, está en la mitad.

Yo intentaría con algo como lo siguiente: una expresión regular que detectase desde ^#(0|2) seguido de un conjunto de campos conocidos. Esta expresión regular se puede crear en base a los campos que ya tenemos. Con esa única línea puedes extraer la trama y luego el resto del programa es igual.

Lo siento pero me estoy haciendo un lio con las expresiones regulares, a ver si me he enterado de algo de lo que he leido, debe ser algo parecido a lo que pusimos de:

Código: Seleccionar todo

my ($fuente) = $trama=~/^#(0|2)/;

Claro que sin guardarlo en 'fuente'.
Se supone que debo quitarle el caracter '^' para que no lo busque al principio de la linea ¿no? y detras ¿que? ¿tengo que poner la lista completa de campos? Te recuerdo que bajo algunas circunstancias podría no aparecer alguno de los campos. Aaaaaahh! Help!

Por otra parte para que no termine el programa he intentado meter el programa completo en un bucle

Código: Seleccionar todo

while (<>){
}

Y tambien he probado con

Código: Seleccionar todo

while ($trama = <>) {
}

Y ciertamente el programa no termina, pero tampoco me inserta nada en la base de datos, vamos de hecho no ejecuta nada, tampoco algunos print que tengo puestos por el programa a modo de comprobación. ¿Sabrias decirme por qué?
Gracias.

Una modificacion, como los bucles infinitos no me gustan nada como solucion, serán los vehiculos los que mandarán una cadena, de momento 'adios', para finalizar el programa. ¿Como puedo implementar ahora el "mientras hay_elementos y !='adios'?

¿Puede ser que mi fallo de antes fuera que no empiezo el 'while' donde debería?

La expresión regular sería (no lo he probado) algo como esto:
es decir, la cabecera seguida de un conjunto de uno o más de los $campos definidos antes.

Y para salir de dentro del bucle, se puede hacer un 'last':aunque tendrías un problema si se transmite una trama junto con un adios en la misma línea.

Esto no va, ahora ya no me separa los campos y no me los va guardando en las variables. Te vuelvo a pasar el programa a ver si ves por donde falla.
Por otra parte otra modificacion, de verdad que lo siento, se que te debo estar mareando un poco, yo estoy igual pero no es culpa mia. Olvida lo que te dije de la cadena 'adios' porque no va a ir así, resulta que los camiones estan constantemente enviando un "estoy vivo" que consiste en '$nombre_camion' (por ejemplo $SP103), esto lo hacen cada minuto. La idea es aprovechar esto y salir del programa si pasan 2 o 3 minutos sin recibir nada. ¿Como puedo resolverlo? Y de verdad que muchas gracias por tu paciencia.

Si suponemos que un sólo programa controla a cada camión, hay que hacer un bucle infinito mientras no se cumpla la condición de parada (no hay respuesta en unos minutos, terminar el programa).

Hay varias formas de hacerlo (algo normal en Perl, claro). Pero todas ellas pasarían por la comprobación de saber si hay algo qué leer en la entrada -esto depende un poco del sistema operativo que estés usando-, y de que pase un determinado tiempo sin recibir respuesta . Con la función select() se puede realizar todo esto en una sola llamada. El cómo ya no lo sé, porque nunca lo he hecho antes. A ver si otra miembro del foro lo sabe...

Pues ya está... es cuestión de hacer una pruebas y sale muy bien:


Lo que hago es meter todo el proceso en un bucle, cuya condición es esperar a que haya algo a la entrada o que pasen 180 segundos.
Si pasa ese tiempo, termina el bucle y se termina el programa.
Si no, leemos la $trama.
Si la $trama no tiene lo que buscamos, repetimos la espera.
Procesamos la $trama leída.