Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
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.
Using perl Syntax Highlighting
readResponse
{
my($sac) = @_;
my($station,$network,$component,$channel) = $sac->Fetch(qw(kstnm knetwk kcmpnm khole));
my $respName = "";
my $resp = Seed::Response->new();
$resp->parseFile($respName);
return $resp;
}
{
my($sac) = @_;
my($station,$network,$component,$channel) = $sac->Fetch(qw(kstnm knetwk kcmpnm khole));
my $respName = "";
my $resp = Seed::Response->new();
$resp->parseFile($respName);
return $resp;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
La terminal me dice que no puede abrir el archivo RESP.$network.$station.$channel.$component
Espero puedan ayudarme. Gracias