Foro - Perl en Español

Hola, hice un script para obtener los valores de expresión a partir de datos crudos de microarrays. El código (sé que podría ser mucho mejor) es el siguiente:


Lo que hago es aplicar este script a 987 archivos para de cada uno obtener el valor que quiero. El problema es que me imprime los valores que obtiene en una sola columna y lo que necesito es que la lista de valores que obtiene de cada archivo aparezcan en columnas separadas. Algo como: "valores archivo 1" \t "valores archivo 2"...\t "valores archivo 987".

Espero haber sido claro. ¡¡¡También espero que puedan ayudarme!!! De antemano, muchas gracias.

Se puede hacer de varias formas.

En la primera, nada óptima, por cada archivo de los 987, primero abres y lees todas las líneas del archivo resultado. Luego, por cada línea del archivo a extraer sus columnas, agregas la columna a la línea del resultado, y lo imprimes en un nuevo archivo resultado.

Otra solución mejor es leer los 987 archivos, procesarlos, y guardar los elementos en una matriz (array de array). Al final, sacar la matriz en forma de columnas.

¿Qué nombres tienen esos archivos? ¿todos los archivos generan siempre una columna, o en esa columna pueden aparecer "datos vacíos"?

Hola, ¡¡muchas gracias por responder!! Todos los archivos de entrada están en formato txt y el archivo que genero al final también lo es. No existen "datos vacíos", siempre hay un valor.

De las soluciones que propones, creo que la primera es la que estoy intentando implementar (abre archivo #1, extrae los valores que necesito, e imprime en el archivo de salida "out.txt". Luego hace lo mismo para el archivo #2 y va imprimiendo en el archivo de salida "out.txt", y de ese modo hasta el último archivo). El problema es que va imprimiendo todo bajo la misma columna y lo que quiero es que imprima los valores extraídos de cada archivo de entrada en columnas diferentes dentro de mi único archivo de salida out.txt... ¡¡Vaya!! Sé que no es muy óptima esta solución, pero la verdad hace poco retomé el estudio de Perl y aún me falta mucho por aprender .

De la segunda solución que propones (array de array), aún no sé cómo hacerlo. Creo que es una estructura tipo hash, ¿sí?

Bueno, ¡¡de nuevo muchas gracias por tu tiempo y tu buena disposición!!

P.d.: Estuve viendo las funciones sprint e printf. ¿Crees que la solución a mi problema sea con esos comandos?

Juan Manu escribiste:Hola, ¡¡muchas gracias por responder!! Todos los archivos de entrada están en formato txt y el archivo que genero al final también lo es. No existen "datos vacíos", siempre hay un valor.

Te he preguntado por los nombres de los archivos

Juan Manu escribiste:De las soluciones que propones, creo que la primera es la que estoy intentando implementar (abre archivo #1, extrae los valores que necesito, e imprime en el archivo de salida "out.txt". Luego hace lo mismo para el archivo #2 y va imprimiendo en el archivo de salida "out.txt", y de ese modo hasta el último archivo). El problema es que va imprimiendo todo bajo la misma columna y lo que quiero es que imprima los valores extraídos de cada archivo de entrada en columnas diferentes dentro de mi único archivo de salida out.txt... ¡¡Vaya!! Sé que no es muy óptima esta solución, pero la verdad hace poco retomé el estudio de Perl y aún me falta mucho por aprender .

No, no estás siguiendo el mismo guión. Repasa mis instrucciones. Si lo ves muy complicado, muéstranos el código que llevas hecho y vemos lo que pasa.

Juan Manu escribiste:De la segunda solución que propones (array de array), aún no sé cómo hacerlo. Creo que es una estructura tipo hash, ¿sí?

No. Un array de array no es hash. Más información en tu propio ordenador en perldoc perldsc, y en la Web (traducido al español). Más información en tu propio ordenador en perldoc perllol, y en la Web (traducido al español). Más información en tu propio ordenador en perldoc perldata, y en la Web (traducido al español).

Juan Manu escribiste:Estuve viendo las funciones sprint e printf. ¿Crees que la solución a mi problema sea con esos comandos?

No. Esas funciones solo formatean e imprimen. La clave de la solución (de la primera opción), es que hay que agregar una nueva columna a la información que ya existe, por lo que antes hay que leer esa información (o almacenarla en memoria, que es lo que hace la segunda opción).

Una tercera opción, incluso más cómoda, sería usar Tie::File, como hemos comentado hace poco.

¡Ja,ja,ja,ja,ja...! Como verás, soy medio lento con todo esto

1. El nombre de los archivos es GSM355418...19, 20... (Te envío un archivo adjunto)

2. Pues la verdad sí fue que no me quedaron muy claras tus instrucciones Mira, el código que hice es este:

$/='ATF'."\t".'1.0'."\n";
while($lineas = <>){
chomp($lineas);
($arriba,$abajo)=split(/"Supplier="/,$lineas);
($letras,$numeros)=split(/"SgdIdNum"/, $abajo);#bien
@columnas=split(/Edge[\t\d\s]/,$numeros);#bien
foreach $pedazo(@columnas){
@division=split(/[\t]/,$pedazo);
print "$division[8]\n";
}
}

Escribo en la consola: perl nombre_de_programa /ruta/de la carpeta/con los archivos/.*txt > archivoDeSalida.txt.

Al final obtengo los valores que necesito de cada archivo, pero se imprimen en una sola columna, unos bajo los otros.

Algo como:

Espero poder entenderte a la próxima... De nuevo, muchas gracias por cualquier ayuda y ¡¡¡discúlpame si ocupo tu tiempo con estas cosas tan simples!!!

A ver... yo ya sé por qué te falla el código, así que no es necesario que lo vuelvas a enviar. Lo que te decía es si habías entendido el guión que te he puesto.

Un poco más explicado...
¿Ves? Necesitamos leer el archivo de salida que teníamos antes, línea a línea, para poder agregar las nuevas columnas a las que había antes.

Por eso decíamos que no era óptimo, pero sí algo claro. Mira a ver si te vale...

Hola, finalmente conseguí resolverlo... ¡¡¡Muchas gracias por la ayuda!!!