running one perl file .WITH PARAMETERS. from another perl file 1

[bcdixit]

Hello,
i want to run one perl file from another and also want to pass parameters to it. how do it do that?

e.g.
lets say I have a file called parent.pl

in main.pl, i have two variables
$x = 'test1';
$y = 'test2';

i want to run a file , lets say child.pl, from main.pl
i did the following
`child.pl -x $test1 -y $test2`;
or used the system() function

My problem is , although the child.pl file runs, $test1 or $test2 dont get passed to child.pl from main.pl

Is there a way to do pass these values?

let me know
thanks
bcd

PS: child.pl is capable of accepting $test1 and $test2 as $opt_x and $opt_y respectively.

 

[KevinADC]

how do you normally pass arguments to child.pl?

- Kevin, perl coder unexceptional!

 

[bcdixit]

this is the first time I am trying to do something like this...i am fairly new to perl.

i can normally run child.pl from the command line following way
/home/bcd/child.pl -x abc -y xyz

i want to run the same thing but from parent.pl but want to use $test1 and $test2 as variables and pass them as mentioned previously.

Just wanted to know if there is way to do it

 

[KevinADC]

I would think this would work then:

system("child.pl -x $test1 -y $test2");

or try:

system("child.pl \-x $test1 \-y $test2");

- Kevin, perl coder unexceptional!

 

[travs69]

Unless I am mistaken.. you are passing the wrong variable names to your next script.

You said:
$x = 'test1';
$y = 'test2';
`child.pl -x $test1 -y $test2`;

but what you need is:
$x = 'test1';
$y = 'test2';
`child.pl -x $x -y $y`;

 

[KevinADC]

>> Unless I am mistaken.. you are passing the wrong variable names to your next script.


DOH! I totally missed that. [flush]

- Kevin, perl coder unexceptional!

 

[bcdixit]

yeah..sorry it was a mistake on my part...but thanks ..looks like your earlier solution is working

 

[MillerH]

It is also possible to use do for this as well. You just need to modify @ARGV explicitly before calling the child script.

parent.pl

my $x = 'test1';
my $y = 'test2';

my $return = do {
	local @ARGV = ('-x', $x, '-y', $y);
	do 'child.pl';
};

print "return code is '$return'\n";

child.pl

print "ARGV = @ARGV\n";

output:

>perl parent.pl
ARGV = -x test1 -y test2
return code is '1'

This has the added benefit that you can add the error checking as detailed in the perldoc about do:

http://perldoc.perl.org/functions/do.html