Foro - Perl en Español

Buen día.

He estado buscando en Internet así como en algunos libros pero no logro encontrar la respuesta a este problema, y todo recae en el uso y modificación de archivos de texto.

Mi problemática es la siguiente:

Supongamos que yo tengo mi archivo X.dat y en el tengo información así;

Código: Seleccionar todo

10;11;12;13;14;15;16;17;18;19;20
21;22;23;24;25;26;27;28;29;30;31
32;33;34;35;36;37;38;39;40;41;42
43;44;45;46;47;48;49;50;51;52;53

Y quiero que Perl lea el primer renglón y lo guarde en un @nombre al cual le daré prioridad azul.

El segundo renglón se guarde en @nombre2 y le daré la prioridad verde.

Esto para tener


Lo hago así, para poder compararlo con un $numero que obtengo de otro archivo y así hacer la comparación:


Y digamos que coincide con @nombres3; entonces generar un archivo que diga: Roja. El fin de esto es que el rango de los números cambien (del archivo X.dat) por lo que se lee del archivo, pero lo que no cambia y lo que interesa son las etiquetas, roja, azul, verde, etcétera, (que se definen en el programa) que si coinciden generan un archivo con un mensaje como ven. ¿Alguna idea de cómo se podría lograr esto o algún tutorial que me recomienden?

Saludos.

Sí se pudo, sí se pudo.

Pues no era tan difícil después de todo, así quedó el código: tenemos dos archivos; de los cuales extraemos información; de uno extraemos un solo campo que puede ir del 1 al 53 y del otro documento extraemos por párrafo, así que al momento de comparar se necesita hacer línea por línea, y si coinciden en la primera línea se despliega el mensaje que es amarilla, en la segunda, azul, y así hasta llegar a la roja,

Código: Seleccionar todo

10;11;12;13;14;15;16;17;18;19;20
21;22;23;24;25;26;27;28;29;30;31
32;33;34;35;36;37;38;39;40;41;42
43;44;45;46;47;48;49;50;51;52;53

Como ven el código, ¿algún comentario para poder hacerlo mas corto o de mejor forma?

Lo único que te faltaba, de la solución dada en el otro hilo, es grabar el nivel de alarma en el fichero externo...

El guardar cada renglón en una variable distinta no hace más que alargar la solución.

Por regla general, si en un problema vemos que necesitamos varias variables del tipo @nombre1, @nombre2, @nombre3,... es que seguramente necesitaremos usar un hash o array en lugar de tenerlas separadas.

En la solución propuesta, las líneas se guardan como elementos del array @X. Por eso luego podemos hacer un bucle por todas sus líneas con la variable $nivel, que nos servirá además para saber luego qué texto tenemos que escribir en el fichero externo, usándola como clave del hash %niveles, donde tenemos los mensajes de alarma.

Comprendo que es lo que planteas y me parece buena idea el hacer externo el uso de las alarmas, pero me causa ruido, como se ingresaría en el código, ya que no veo la relación de los 2 archivos por ninguna, parte, digamos que descartamos el de valor = 11 pero el otro ? como hacer la relación de comparación para que después abra un archivo y lo guarde?
------------
También estoy notando que necesito agregar mas cosas, como la hora y datos similares, por lo que voy a necesitar hacer un programa estructurado, guardar variables y valores, que después pueda mandar llamar, algún tutorial que me recomiendes?
Saludos

Hemos presentado la solución al mismo tiempo. Unos comentarios a la tuya:

* Estas leyendo los ficheros por líneas en sendos arrays. Pero luego haces un bucle muy extraño:

Resulta que $fichero_B[0] es un SOLO elemento (la primera línea del fichero B), por lo que este bucle en realidad casi no lo es: solo lo ejecutamos una vez. Por lo tanto, no es necesario poner un bucle, reduciendo el problema a:



* Otro detalle peligroso... he editado tu código y si te fijas los bucles están anidados unos con otros, por lo estás ejecutando muchas decenas de bucles innecesarios. Es decir: el bucle de $linea4 se ejecuta por cada bucle de $linea3 que se ejecuta por cada bucle de $linea2. Debes des-anidar esos bucles.

* Una mejora sustancial es que los cuatro bucles foreach hacen casi lo mismo, así que es obvio que debe existir una forma de reducirlos a un caso común.

Kiloko escribiste::? Comprendo que es lo que planteas y me parece buena idea el hacer externo el uso de las alarmas, pero me causa ruido, como se ingresaría en el código, ya que no veo la relación de los 2 archivos por ninguna, parte, digamos que descartamos el de valor = 11 pero el otro ? como hacer la relación de comparación para que después abra un archivo y lo guarde?

Es que esa parte no está porque está ya puesta en la anterior respuesta en el otro hilo.

jojo jo ya quedo, aunque sea solo la primera parte, ahora solo falta comparar los archivos que vaya creando, actualizarlos y hacer más exacta la consulta que se realice... bueno, espero esto sirva a los perleros; está también el uso de cómo se crea un archivo, cómo se ingresa la fecha, y cómo se guarda.

Pues no... el tener que sumar 1900 al número del año no tiene nada que ver con el efecto 2000. Viene de mucho atrás, de cuando se definieron las librerías estándar Unix.

En cuanto al programa presentado, veo que comparas cada campo extraído del fichero 'A' con todas las líneas del fichero B, con lo que es posible que un determinado campo genere más de una alarma en la misma pasada. ¿Eso es posible?

Lo pregunto porque en el fichero de ejemplo que has puesto el fichero B tenía 4 líneas distintas. Por eso en mi solución hay un last; para presentar solo el primer nivel encontrado.

se puede escribir como


Y reiterar lo dicho antes: con un hash reduces los 4 if a solo uno.

En cuanto al programa presentado, veo que comparas cada campo extraído del fichero 'A' con todas las líneas del fichero B, con lo que es posible que un determinado campo genere más de una alarma en la misma pasada. ¿Eso es posible?

Estuve haciendo varias pruebas y no aparece tal error, espero que no pase, jajajaja
Lo estoy haciendo con hash pero le estoy agregando cosas nuevas... por cierto, ¿no sabrás cómo imprimir al final de una linea de texto?

Digamos, que se hace un archivo y sale algo como

Código: Seleccionar todo

12-10-2007=11

y

Y nuevamente se genera el archivo en X tiempo pero quiero que al final solo se imprima $valor_tres (suponiendo que el valor de $valor_tres cambió de 11 a 130) (habría que leer nuevamente el archivo y posicionar el nuevo elemento en la última parte, pero no se me ocurre cómo).

Algo así tendría que salir:

Código: Seleccionar todo

12-10-2007=11=130

Saludos

Kiloko escribiste:¿no sabrás cómo imprimir al final de una linea de texto?

Pues... imprimiendo...