Run a remote Perl script from within a Perl script with @ARGV

[charithd]

Hi all, I need to execute remote perl script(script_to_call.pl) from my another perl script also passing @ARGV to script_to_call.pl . I tried with below but it not parse @ARGV:

do { local @ARGV;
 @ARGV = ("$OldTime","$NewTime","$WLSP/CDSServer11.log"); 

eval { system("ssh -o stricthostkeychecking=no $WLS './script_to_call.
+pl'"); };

 };

[Athanasius]

Try this (untested):

my @args = ('ssh',
            '-o',
            'stricthostkeychecking=no',
             $WLS,
            './script_to_call.pl',
             $OldTime,
             $NewTime,
            "$WLSP/CDSServer11.log");
system(@args);

@ARGV contains what was passed in on the command line. It is not used for passing to another script. See system.

Hope that helps,

[salva]

use Net::OpenSSH;
$s = Net::OpenSSH->new($WLS, master_opts => [-o => 'StrictHostKeyCheck
+ing=no']);
$s->system('./script_to_call.pl', $OldTime, $NewTime, "$WLSP/CDSServer
+11.log");