Foro - Perl en Español

Varias formas:
Extracción de los tres campos por indicación de su tamaño por medio de comodines '.', e interpolación de las variables por efecto de las comillas dobles.

Código: Seleccionar todo

($HH,$MM,$SS) = $valor =~ /(..)(..)(..)/; # tres campos de dos caracteres
$valor = "$HH:$MM:$SS";

Extracción de los tres campos por el mismo método, de forma repetida, porque son todos iguales (del mismo tamaño):

Código: Seleccionar todo

($HH,$MM,$SS) = $valor =~ /(..)/g; # Recorremos $valor en grupos de dos caracteres
$valor = "$HH:$MM:$SS";

En vez de guardarlo en 3 variables sueltas, lo podemos guardar en un array:

Código: Seleccionar todo

@x = $valor =~ /(..)/g; # Lo mismo, pero ahora en vez de 3 variable, sólo un array
$valor = join(":",@x);  # y unión con joint

que es lo mismo que decir

Código: Seleccionar todo

$valor = join(":", $valor =~ /(..)/g); # Todo en una línea: división y unión. Nos ahorramos una variable temporal

Otra forma: si sólo necesitamos dos ':', pues los ponemos en su sitio:

Código: Seleccionar todo

substr($valor,2,0)=":";
substr($valor,5,0)=":";

Y para lo último, tu mismo lo has dicho:

Código: Seleccionar todo

if ( $UID == 3 ) {
    # Abrir conexión con servidor Jose1
    # ... connect
} else {
    # Abrir conexión con servidor Jose2
    # ... connect
}

# Publicación en la base de datos...
# ... insert o update

Josmanue escribiste:Vaya curro guapo tio! ¿Y eso funciona de verdad?

Tu mismo lo puedes ver:
* Incendios activos
* Riesgo de incendio
(por la tele )

Yo servía datos en varios formatos (correo electrónico, XML, teletexto). Incluso surgió la posibilidad de hacer lo siguiente: como nosotros sabemos a nivel de municipio dónde se está produciendo un incendio, habíamos pensado en la posibilidad de enviar a las fuerzas de tierra, a la cuadrilla correspondiente, un SMS para informarles del lugar, hora de inicio, última dirección de desplazamiento conocida, etc. Gracias al nuevo meteosat se puede saber todo eso cada 15 minutos.

Josmanue escribiste:No sabía que se tuviera tanto control de los incendios desde los satélites. Aunque una idea mucho mejor sería hacer un control sobre los ijoputas que le meten fuego al campo.... para eso no hay programa ¿no?

Hummm... se podría hacer... lo que falta es voluntad de poner los medios... Tu fíjate lo que sucede en lugares como los grandes bosques de Estados Unidos y Canadá, cerca de las zonas más cálidas. Allí tienen torres de vigilancia cada cierto número de kilómetros, abarcando toda la zona. Anteriormente en todas ellas estaban ocupados por guardabosques (algunas lo siguen estando en las zonas más problemáticas), pero la mayoría tienen ahora cámaras sensibles al calor, todas ellas conectadas por satélite o telefonía. Si un sólo arbusto empieza a arder, se enteran en muy pocos minutos. Lo más parecido que tenemos en España es en la comunidad de Madrid, que han puesto chips a los árboles, en algunos bosques del norte de la capital. Si un sólo árbol empieza a arder, este se lo comunica a central. Pero no tengo datos de cómo lo hacen.

Pero lo que dices es cierto, los cabrones que se dedican a quemar (por el motivo que sea, que hay varios), son muy difíciles de controlar. Había oído algo de que en Austria, Francia y Alemanía había algunas zonas que tenían instalado cámaras de detección de calor automáticas, pero no para los fuegos, sino para las personas, de tal forma que con un par de cámaras tenían controlado todo un valle (no demasiado frondoso, claro). Pero esto era un caso muy especial, bosques centroeuropeos de esos que para entrar en ellos tienes que pararte antes en la caseta del guardabosques y una cámara fija le hace una foto al coche... hacer cosas de esas por aquí es algo... muy lejano... Como mucho, lo único que podemos hacer es hacer limpieza de montes y cortafuegos, que, a mi modo de pensar es como darse por vencido... es como si dijéramos: sabemos que se va a producir fuego, así que haremos que sea con el menor daño posible. Además, para los que nos gusta la naturaleza, ya el mismo término limpieza de montes es un concepto terrible, porque rompes algunas cadenas tróficas. Es como si convirtiéramos un bosque frondoso en una parque metropolitano... bonito, pero no natural.

Piensa una cosa... me dicen que en los bosques de Ávila y Segovia ocurren pocos incendios. Y es porque por aquella zona viven de la madera y saben cuidar sus bosques. Así que allí hay intereses en la producción de madera, pero no en quemarla. En el resto de España... habrá que ir pensando en aprender a llevar camellos.

La función tan no existe en Perl. Sí que existe la arcotangente. ¿Por qué no existe la función tangente? pues porque hay una forma muy fácil de hacerla.

Sobre las conexiones a las bases de datos, puedes realizarlas al principio del programa, a los dos servidores, y luego en función de las necesidades o valores encontrados, llevar la petición a uno u otro.

Sobre el orden de los campos. Si utilizas la sintáxis que he puesto, verás que aparecen los nombres de los campos, con lo que nos da igual ese orden. De eso ya se ocupa la base de datos. Sí que habría que ponerlos en orden en caso de usar la otra sintáxis de INSERT, en la que se indican sólo los valores.

La información de los teletextos es sólo para el público en general. Los equipos de emergencias tienen mucha más información y de forma más rápida. Y tienes razón en lo del orgullo. Aunque desde finales del año pasado ya no trabajo en eso -me despedí-, uno se siente orgulloso de que sus programas siguen funcionando perfectamente...

Una cosa... si estás usando trigonometría para hallar distancias basadas en longitud/latitud, todo eso ya está hecho en Geo::Distancie, pero si lo que te interesa saber es, dados dos puntos, calcular distancia y orientación (grados), entonces eso se puede hacer con Geo::Ellipsoid y Geo::Coordinates::DecimalDegrees.

Ejemplo:Efectivamente... Valladolid está a unos 128 kilómetros y a unos 145º de León.

En CPAN hay más módulos relacionados con el cálculo Geoespacial.

Pues primero haces un prepare() y luego un execute()... dos líneas.

Y si la $sql aparecen los campos vacíos, es que no se hace algo bien en el bucle donde se leen. Es como si $valor no contuviera nada. En mi bucle sí que salen todos los valores. ¿Qué sale con el print mientras lee los campos en el bucle?

No hagas print "%trama";, sino print %trama;. Si sigue saliendo lo mismo, entonces sí que está pasando algo muy raro. Tendrás entonces que poner use warnings; al principio del programa para que te dé mas pistas.

Sobre la base de datos, mírate el tutorial de esta misma página web:
http://perlenespanol.com/archives-tut/000045.html