Foro - Perl en Español

por **astrid5** » 2010-07-01 15:03 @668

¡¡Hola a todos!!

Tengo un problema con un programa en Perl, soy nueva en esto. Estoy utilizando un código que no está hecho por mi. El problema es que donde declara las variables my(@input,$output), según entiendo, hay que definirlas y son archivos, me dice que input es un arreglo. Entonces mi pregunta es si me pueden explicar cómo debo definir el archivo para que el programa funcione.

Gracias

P.D. Solo agregué el programa principal porque es muy largo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl -w
 
use strict;
use DateTime;
use File::Temp;
use Math::Round;
use Math::Complex;
use Getopt::Long;
use TauP::Time;
use Seed::Response;
use Seismogram::SAC;
 
our $VERSION = 1.2;
 
# Set your SAC path here
my $sac2000 = '/usr/local/sac/bin/sac'; 
if ( ! -e $sac2000 )
{
 die "Could not find SAC executable, please edit $0\n";
}
my(@input,$output);
GetOptions('input=s{,}' => \@input, 'output=s' => \$output);
 
# A perl module to convert from SAC to DSN (a format used by MT5)
open my $out_fp,">$output";
foreach my $file (<@input>)
{
 my $phase = 'S';
 if ( $file =~ /[SBL]HZ/ ) { $phase = 'P';}
 # Decimate the data
 my $decData = File::Temp->new();
 decimateData($file,$decData);
 # Read the decimated file
 my($sac) = readSAC($decData);
 my($resp) = readResponse($sac);
 
 my($waveform,$initialTime) = extractWaveform($sac,$phase);
 my $waveformSize = (scalar @$waveform);
 my($header) = createSeismogramHeader($sac,$resp,$waveform,$initialTime);
 $header .= printPolesAndZeros($sac,$resp,$waveformSize); 
 $header .= printWaveform($waveform);
 print $out_fp $header;
}
close $out_fp;
 
0;
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

quiere decir que se esperan dos argumentos con nombre.

Uno de ellos, output, requiere la presencia (=) de un valor de cadena de caracteres (s), que almacenará en la variable $output.

Y otro, input, que requiere (=) uno o más valores ({,}) de cadenas de caracteres (s), que los guardará, uno a uno, dentro del array @input.

La forma de indicar esos valores se puede hacer, desde la línea de comandos, así

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

--input fichero1 --input fichero2 --input fichero3Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

o (experimental)

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

--input fichero1 fichero2 fichero3Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **astrid5** » 2010-07-01 16:18 @721

¡¡¡Gracias!!!

Eres una persona muy amable, ahora ya entendí. Ya resolví este primer problema. Ahora seguiré con los demás. :lol:

Foro - Perl en Español

Declaración de variables

Declaración de variables

Publicidad

Re: Declaración de variables

Re: Declaración de variables

¿Quién está conectado?