Re: Call perl script from within another perl script

To call/invoke/run a Perl script from another Perl script you can also do something like:

# call_another_script.pl
use strict;
use warnings;

do {
    local @ARGV;

    @ARGV = ("Hello", "World!");
    eval { require "script_to_call.pl" };
};

print "\nOriginal args:\n";
for my $arg (@ARGV) {
    print "$arg\n";
}
[download]

# script_to_cal.pl
use strict;
use warnings;

print "script_to_call.pl args:\n";
for my $arg (@ARGV) {
    print "$arg\n";
}
[download]

Comment on Re: Call perl script from within another perl script Select or Download Code

Replies are listed 'Best First'.
Re^2: Call perl script from within another perl script by charithd (Acolyte) on Sep 25, 2012 at 06:17 UTC
hi all, I need to execute perl script(script_to_call.pl) on my remote location can I do it in same way (with @ARGV)? This below one not parse @ARGV: `do { local @ARGV; @ARGV = ("$OldTime","$NewTime","$WLSP/CDSServer11.log"); eval { system("ssh -o stricthostkeychecking=no $WLS './script_to_c +all.pl'"); }; };` [download]	[reply] [d/l]
Re^3: Call perl script from within another perl script by dHarry (Abbot) on Sep 25, 2012 at 11:33 UTC
Instead of asking a question in a 4 year old thread, you should open a new thread. Your problem is also different to the problem addressed in this thread. See safely passing args through ssh for ideas.	[reply]
Re^4: Call perl script from within another perl script by charithd (Acolyte) on Sep 26, 2012 at 03:59 UTC
OK sorry for my bad. I will open a new thread. anyway thank you very much for your reply	[reply]