Foro - Perl en Español

Hola a todos
Desearía hacerles una pregunta:
1-) Tengo un archivo del cual debo escoger solo ciertas líneas, cada línea queda dividida en cinco partes y yo trabajo solo con tres: $ip1, $ip3, $ip6, así que escribí



Uso la función grep para seleccionar las líneas que tienen cualquiera de las palabras spc, area o w para guardarlas en @bra pero él imprime la información contenida en $bra y no en @bra.

En realidad no sé cómo especificarle que imprima la información contenida en @bra
usando la función write (porque tengo un formato que respetar).

Muchas gracias de antemano a las personas que me puedan ayudar.
Hasta Luego.

Bienvenido a los foros de Perl en Español, STM.

Andas un poco perdido con la sintaxis, me parece a mí...

En el comentario hablas de la función @bra, pero en el código pones @bras.

grep(), en el código, está analizando la variable $cmos de la cual no sabemos de dónde viene. Ni siquiera estás comparando los valores de las variables $ip1, $ip3, $ip6.

Y de la pobre variable $bra, no sabemos para qué la usas, porque solo aparece una vez en el código.

No está claro qué es lo que quieres guardar en @bra: ¿los campos extraídos por split() o toda la línea?

Hola,
lo siento, es que copié mal el código que tenía; el verdadero código es así:



Muchas Gracias

Siguen faltando muchas pistas, pero una primera aproximación al problema podría ser
* La línea ($_) que se supone que estará compuesta de campos separados por espacios en blanco, es dividida y nos quedamos con las 6 primeras partes
* Las partes que nos interesan entran en el grep y son filtrados por la expresión regular, que busca patrones de 'w', 'area' o 'spc'. Si alguno coincide, se van almacenando en @bra
* Y luego escribe el resultado, pero no sabemos qué aspecto tiene el formato para write(), así que eso ya depende de ti.

Se pueden abreviar las dos líneas en una:

Hola de nuevo,
Ya ensaye el código que usted me envió pero él continúa imprimiendo todas las líneas del archivo original.

Esta vez envío el código completo de mi programa (no es muy grande, pero ya no es el mismo que yo tenía ayer). Ensayé varias sintaxis de la función grep pero nada funciona y no entiendo por qué.



Muchas gracias de antemano por su ayuda.

Si estás empezando con Perl, es muy recomendable que pongas
al principio del programa. Te avisará de cosas extrañas que pones en tu código.

Por ejemplo, las líneas
no tienen mucho sentido para mí. ¿Dónde se inicializa la variable @bra? ¿Qué valor devuelve la función OD.WIDTH? ¿Dónde está definida? Lo mismo para la función OD.SPACE.

Es más... estás intentando comparar un array con una cadena de caracteres:
lo cual tampoco tiene mucho sentido (salvo que estés usando Perl5.10, pero en ese caso no estás usando el operador smart-match).

Para evitar que te muestre todas las líneas del fichero, te falta por saber qué líneas son las que quieres imprimir. Eso implica hacer una condición, que suponemos que es la que quieres hacer con el comando grep().

Esta es una opción (no probada):
Ya te digo que no lo he podido probar, sobre todo porque no sé muy bien como es el fichero de entrada y qué es lo que quieres sacar/filtrar, ya que los if que has puesto ahora me han despistado.

Buenas Tardes,
Pues yo creía que el programa funcionaba de la siguiente forma:

Las variables ipXXXX se inicializan con la primera línea leída en el archivo BRA.txt y van cambiando continuamente de datos hasta que se termina de leer el archivo.

La idea es que yo debo leer el archivo, filtrar las líneas donde aparecen las palabras (w, area, spc) y guardarlas en el nuevo archivo bra.txt.

Con el if, yo pensaba hacer un reemplazo de datos porque hay líneas que tienen la frase OD.W.1 y yo quisiera que en el nuevo archivo esa frase quede OD.WIDTH (OD.W.1 no es una función, es una cadena de caracteres lo mismo que OD.SPACE).

Siento mucho molestar tanto.
Muchas Gracias.

Entiendo lo del reemplazo, que puedes hacer así:



Con eso modificarás la variable $_, que contiene la línea que has leído en el while.

Ahora bien... ¿por qué hacer este reemplazo? En el fichero de salida van a salir 3 columnas, con los valores de los campos 1 4 y 5. Si en alguno de ellos aparecen los patrones (w, area o spc) (escritas así, en minúscula) entonces los graba. Pero si no, no.

Vamos, que no entiendo qué relación puede haber entre querer hacer un reemplazo, si ese reemplazo no va a salir en el fichero. ¿O es que sí debería salir? En ese caso, no está del todo explicado qué líneas son las que deseamos sacar fuera.

P.D.1: No es buena idea que los dos ficheros se llamen casi igual.

P.D.2:
Aquí nadie molesta, porque el que molesta, no está aquí.

Buenas tardes.

Mi idea es que el remplazo se vea en el segundo archivo.

En realidad yo deseo hacer algo así:
yo leo el archivo de entrada, filtro las líneas donde aparece " w,spc,area" .

Como cada línea está dividida en seis tomo solo tres partes, las acomodo según mi formato y hago el reemplazo.

Al final tendré un archivo de tres columnas que en vez de tener w tendrá width y así sucesivamente con spc y area.

Muchas Gracias.

¡Ah! Pero es que eso cambia mucho la cosa...



Como ves, tu mismo has dado la solución al problema, salvo un detalle: había que hacer el reemplazo ANTES de hacer la división de la línea. Si lo hubiéramos hecho al revés, tendríamos que haber hecho el reemplazo por cada una de las 3 partes. Mejor hacerlo solo una vez.