Copyright 1995 Regents of the University of California
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Estoy utilizando un código que yo no escribí. Dentro de él hay una subrutina que manda llamar a otro programa.
El problema es que el otro programa se abre en consola y ya no continúa corriendo el programa en Perl. Al parecer no se ejecutan las ordenes dentro del otro programa. ¿Podrían ayudarme a resolver este problema?
Gracias.
Using perl Syntax Highlighting
sub decimateData {
my($file,$decFile) = @_;
my($decimateString) = calculateDecimation($file);
open my $sac_fp, "|$sac2000";
print $sac_fp qq(READ $file
$decimateString
WRITE $decFile
QUIT
);
close $sac_fp;
}
my($file,$decFile) = @_;
my($decimateString) = calculateDecimation($file);
open my $sac_fp, "|$sac2000";
print $sac_fp qq(READ $file
$decimateString
WRITE $decFile
QUIT
);
close $sac_fp;
}
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4