use another script in a script

[donny750]

hello,

I've script A.pl who modify something;

I want to use this script in another script B, because i call 3 times the script A for modifiying things.

It's possible in perl to do this ?

May be something like this :

B.pl

code...
i call the script A.pl with parameter :
A.pl -filename xx.csv

code ..
i call another times the script A.pl :
A.pl -filename vb.csv

code ...

Thanks

 

[MillerH]

Make a function inside B.pl to handle this:

callA('xx.csv');
callA('cb.csv');

sub callA {
	local @ARGV = ('-filename', @_);
	do 'A.pl';
	# Read docs to add error checking: [URL unfurl="true"]http://perldoc.perl.org/functions/do.html[/URL]
}

If you want to add error checking for the parsing and executing of A.pl, just read the docs provided with the do function. And obviously, you should probably give "callA" a better name.

- Miller