Foro - Perl en Español

Hola, amigos.

Tal vez sea muy fácil, pero la verdad, no sé cómo hacerlo y les agradecería una ayuda con lo siguiente:

Tengo un archivo de texto con la siguiente información (y pueden ser más polinomios); como la imagen a la cual se refiere ese mapa la he reducido a un 50% de su tamaño original.



¿Cómo debo reducir a un 50% ese imagemap? Tengo que hacer lo siguiente:

Abrir ese archivo y convertir cada número al porcentaje (50%) y dejarlo como un número entero; además volver a armar ese archivo nuevamente. Mejor dicho:

"Abrir el archivo y tomar cada número y dividirlo entre dos (50%) y guardar el archivo; puede ser con otro nombre."

En archivo2.txt debe estar el mismo formato de archivo1.txt pero con cada número dentro del archivo dividido entre 2. Todo lo demás debe quedar igual.


La verdad he pensado en abrir el archivo y tomar el archivo línea a línea y hacerle algún procedimiento, pero no me imagino qué hacerle y sé que es largo.

La pregunta :

¿Alguien sabe cómo hacer esto con una expresión regular o de alguna manera?

Les agradezco cualquier comentario o sugerencia o cualquier fragmento de código.

Gracias
Carlos García

Realmente... no hay que operar sobre TODOS los números del archivo, sino solo los que pertenecen al atributo coords. Fíjate que en cada línea hay un número en los atributos href, y no queremos que se número cambie.

Esta es una primera solución, que se ejecuta desde la línea de comandos:

• code_29971.txt es el nombre del archivo que queremos modificar
• Usamos la opción -p para que Perl abra el archivo y nos mande una línea cada vez
• Con la opción -i indicamos que el archivo original lo guardaremos con la extensión '.bak', mientras que crearemos una versión nueva del archivo, en que haremos unas modificaciones
• Las modificaciones están en la misma línea de comando, y por eso ponemos la opción -E, que precede al mini-programa de Perl de una línea que queremos ejecutar por cada línea del archivo original
• Si la línea que hemos leído contiene '<area shape="poly"' entonces vamos a hacer una operación de sustitución (s///)
• La sustitución se hará sobre todos los números (\d+) de la línea, que estén seguidos, bien por una coma (,), o (|) por las comillas dobles ("). Si te fijas, todos los números que nos interesan de la línea cumplen con ese patrón. Entonces, el número es capturado en $1, mientras que la coma o la comilla doble, en $2, por acción de los paréntesis de captura
• Cuando encontramos un número, lo que hacemos es ejecutar un trozo de código Perl (por eso ponemos la opción /e al operador de sustitución)
• La operación es dividir $1 por 2, sacar la parte entera, y concatenarle $2, que, recordemos, era la coma o comilla doble que seguía al número
• Y esto lo repetimos para todos los números de la línea, con la ayuda de la opción /g
• Todas las operaciones se realizan en la variable por defecto $_ (que no se ve), por lo que, efectivamente, estamos leyendo y transformando líneas

Se ve la "trampa" enseguida:

• Necesitamos que todo la marca <area ... /> esté en una sola línea
• Las coordenadas numéricas deben estar siempre seguidas por coma o comillas dobles. Si no, fallará en ese número

Si esto no se cumple, no funcionará el programa.

Esta es otra forma, más larga, pero más fácil de entender:

La operación de división entera entre dos también se puede hacer así:
(Usamos el operador de desplazamiento bit hacia la derecha, desplazando los bits una posición)

Muchas gracias.

No sé por qué no pude instalar los módulos necesarios en esta máquina y me toco hacerlos casi que a mano, sin módulos ni expresiones regulares.

Gracias a la idea que me dio el código 2 de explorer.

De cualquier modo quisiera compartir lo que hice y muchas gracias a explorer.

Mejor así:

A propósito... creo que es la primera vez que veo a alguien usar una de las formas más extrañas que permite open(). Me refiero al open() de la línea 3.

perlfunc dice:

Si EXPR se omite, la variable escalar global (a nivel de paquete) del mismo nombre que el IDENTIFICADOR_ARCHIVO contiene el nombre del archivo.
(Tenga en cuenta que las variables léxicas -las declaradas con "my" o "state"- no servirán para este propósito; así que si está usando "my" o "state", especifique EXPR en su llamada a open.)

Una nota más: el bucle for() de la línea 17 funciona de la siguiente manera: cada elemento de @elementos no es copiada en $elemento, si no que $elemento contiene un "alias" (como una especie de referencia) a cada elemento de @elementos.

De esta manera, todo cambio que le hagas a $elemento dentro del bucle queda reflejado en el elemento correspondiente del array @elementos. Esa es la razón por la cual no necesitamos copiar o almacenar el valor de $elemento una vez modificado: porque ya está modificado el elemento dentro del array.

Muchas gracias, explorer.

Como siempre tus buenos comentarios hablan de tu buena formación.

Y la colaboración que nos das exige más compromiso con la calidad de nuestros códigos.

Muchas gracias nuevamente.