Foro - Perl en Español

Hola a todos. Les escribo porque tengo problemas con un código, así que solicito amablemente su ayuda.

En primera no sé para qué sirve la instrucción parseFile y creo que es la que genera el error. De este código, sólo les mando la subrutina.



La terminal me dice que no puede abrir el archivo RESP.$network.$station.$channel.$component

Espero puedan ayudarme. Gracias

Nosotros tampoco sabemos qué es lo que hace parseFile. Parece que es una función que está definida en otra parte del código o en algún módulo externo. En CPAN hay unas cuantas distribuciones que traen esa función.

Lo que me extraña es lo que veo en el código, que en una línea pones

my $respName = "";

y luego haces la llamada

$resp->parseFile($respName);

y, como sospecho, que la llamada a Seed::Response->new() tampoco ha actualizado la variable, me temo que estás llamando a parseFile con una variable que no contiene nada.

Sería recomendable que pusieras el texto completo del error que sale en pantalla. Seguramente vendrá indicada la fila en la que Perl cree que se ha producido el error.

Me extraña que te diga que no puede abrir ese fichero, con ese mensaje de error. Yo, cuando veo

RESP.$network.$station.$channel.$component

me suena a que esa cadena no ha sido interpretada, ya que yo esperaría a que el programa o Perl me mostrase el nombre real del fichero que no puede abrir.

Hay algo más en el código, que está mal.

Disculpa, lo que pasa es que modifiqué el código. Originalmente es así:



y el error es este:


Esta es sólo la subrutina, la línea 69 es esta: $resp->parseFile($respName);

Creo que el problema está en el módulo Seed::Response.

El mensaje de error dice que no puede abrir el fichero RESP.CH.FUORN..BHZ.

¿Seguro que existe? Fíjate que hay un par de '.' seguidos.

Tiene dos puntos seguidos debido a que my($station,$network,$component,$channel) = $sac->Fetch(qw(kstnm knetwk kcmpnm khole)), khole es igual a cero.

Entonces my $respName = "RESP.$network.$station.$channel.$component"; queda como RESP.CH.FUORN..BHZ.

Creo que Seed::Response no está creando el archivo nuevo.

Sí, ya sabemos cómo se crea el nombre del fichero.

La pregunta, es, si ese fichero, tal cual es así, con los dos '.' seguidos, existe en el sistema de ficheros.

Porque el error dice que no lo puede abrir, y eso suele ser porque a) el fichero no existe, o b) el fichero está en un sitio distinto en donde está mirando el programa.

Al parecer el archivo no existe, ni con un "." ni con dos.