Foro - Perl en Español

Buen día,

Estoy haciendo un pequeno programa para recuperar una línea según un patrón dado en una lista de archivos.

Tengo aproximadamente 100000 archivos donde existe una línea que comienza por la palabra "data" luego aprox. 120 espacios y luego hay un número. En realidad yo quiero recuperar estos valores.

Sin embargo, Perl genera un error cuando trato de leer los archivos. Perl dice que no puede abrir la carpeta donde se encuentran los archivos: chdir($diry)|| die ('It couldnt be:'.$diry.$!."\n");

¿Podrían decirme por favor dónde está el error en el código?

Otra pregunta que tengo es que en mis archivos siempre hay dos líneas que empiezan con la palabra "data" pero yo solo quisiera recuperar la primera línea.

¿Podrían decirme cómo se le indica esto en Perl?

Muchas gracias de antemano por su ayuda.

Puede que esté aquí:

$dir."/lista";

Revisa que el punto y la barra delante de lista no estén creando problemas al traducir el fichero.

Probablemente sea mejor usar una estructura distinta:


y luego usar un bucle normal

Yo, lo que veo es lo siguiente: en la línea 19 estás intentando entrar en un subdirectorio contenido en la variable $diry, pero luego, en la línea 23 estás intentando abrirlo como si fuera un fichero de texto.

Entonces, en la mayoría de los sistemas de ficheros, eso quiere decir que una de las dos líneas generará un error, porque, o bien $diry contiene la ruta completa a un fichero (y fallará la primera línea porque un fichero no es un directorio y chdir() no puede entrar en él), o bien contiene la ruta completa a un directorio (y fallará entonces la segunda línea, al intentar abrir un directorio como si fuera un fichero).

Hola,
Muchas gracias a pvaldes y a explorer por sus respuestas. El script ya funciona.

Ahora quisiera formular una nueva pregunta.

En mi archivo yo tengo:


Yo quisiera tratar cada línea de una forma diferente dependiendo si el número es positivo o negativo.

Sin embargo no sé cómo escribir esto en Perl.

Mi idea es algo así:


Hasta aquí el código detecta el número pero no sé cómo detectar el signo del número.

¿Podrían decirme cómo se puede hacer esto?

Gracias.

STM

Si @arrayentrada contiene las líneas del fichero, basta con leerlas una a una, partirlas por el espacio en blanco, y ver el signo del número:


Naturalmente, el if() del $data sobra si todas las líneas comienzan por 'data'.