Foro - Perl en Español

por **usarioma** » 2009-08-25 22:24 @975

¿Cómo hago para pasar parámetros de un script a otro?

Tengo dos scripts: script1.pl y script2.pl.

En cierta parte del código de script1.pl quiero que ejecute script2.pl con ciertos parámetros; una vez que termine de ejecutarse script2.pl, quiero que retorne un valor y luego continúe ejecutándose script1.pl donde se quedó y de acuerdo al valor retornado por script2.pl ejecutar distintas tareas.

¿Cómo hago eso?

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
print "Haciendo algo\n";
 
my $resultado = qx[ ./kk1.pl 2 ];
 
if ($resultado == 1) {
    print "Hacemos un 1\n";
}
elsif ($resultado == 2) {
    print "Hacemos un 2\n";
}
 
print "Haciendo otra cosa\n";
 
__END__
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

kk1.pl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
my $argumento = shift @ARGV;
 
print $argumento;
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Actualización: puesto el ejemplo de paso de parámetros.

por **usarioma** » 2009-08-26 10:48 @492

¿Qué es lo que hace la función qw()?

¿Cómo hago para retornar una variable desde el segundo script? ¿return() y nada más?

¿Para que sirve __END__?

También vi usar de esta manera:
use POSIX qw/ strftime /;

por **explorer** » 2009-08-26 12:22 @557

usarioma escribiste:¿Qué es lo que hace la función qw()?

También vi usar de esta manera:
use POSIX qw/ strftime /;

qw() sirve para delimitar una lista de palabras. Es decir, que

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@palabras=('12','abuela','45','casa');Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

se puede escribir de forma más cómoda así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@palabras=qw( 12 abuela 45 casa );Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

o incluso así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@palabras=qw(

    12  abuela

    45  casa
);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En cuanto a los delimitadores, se pueden usar varios:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@palabras=qw( 12 abuela 45 casa );
my@palabras=qw[ 12 abuela 45 casa ];
my@palabras=qw{ 12 abuela 45 casa };
my@palabras=qw/ 12 abuela 45 casa /;
my@palabras=qw" 12 abuela 45 casa ";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y así.

usarioma escribiste:¿Cómo hago para retornar una variable desde el segundo script? ¿return() y nada más?

Depende de como se haya hecho la llamada. No es lo mismo haberlo ejecutado con un do(), que haber importado funciones con use() o require(). Presenta algo de código y te diremos.

usarioma escribiste:¿Para que sirve __END__?

Para separar la zona del programa de otra zona que el compilador no mirará. Se puede usar para dejar allí comentarios, documentación, código viejo, código sin usar...

por **adrolmar** » 2009-08-31 04:25 @225

¡Buenas!

Al hilo de la cuestión... ahora digo yo, ¿cómo se haría para invocar a otro cgi y finalizar (sin retornar al cgi invocante)?

Por ejemplo, un cgi llamado login.cgi que valida usuario/contraseña y cuando éstos sean correctos lance otro script CGI y acabe.

¡¡Gracias!!

por **explorer** » 2009-08-31 04:27 @227

Con exec().

por **adrolmar** » 2009-08-31 05:41 @278

¡Muchas gracias!

Foro - Perl en Español

Paso de parámetros entre scripts y retorno de datos

Paso de parámetros entre scripts y retorno de datos

Publicidad

Re: Paso de parámetros entre scripts y retorno de datos

Re: Paso de parámetros entre scripts y retorno de datos

Re: Paso de parámetros entre scripts y retorno de datos

Re: Paso de parámetros entre scripts y retorno de datos

Re: Paso de parámetros entre scripts y retorno de datos

Re: Paso de parámetros entre scripts y retorno de datos

¿Quién está conectado?