Re: Running PERL SCRIPTS in Parallel

[salva]

Net::OpenSSH::Parallel does not support parallelization inside the host (it's on the TODO list). Though, for simple cases it can be done using the parsub action:

# untested!

require POSIX;

sub ssh_run_parallel {
   my ($label, $ssh, @cmds) = @_;
   my @pids = map $ssh->spawn(@$_), @cmds;
   my $error = 0;
   for (@pids) {
     waitpid $_, 0;
     $error ||= $?;
   }
   POSIX::_exit($error);
}

my $pssh = Net::OpenSSH::Parallel->new();
$pssh->add_host($_) for @hosts;
$pssh->push('*', scp_put => '/root/cpu.pl', '/root/memory.pl', '/root/
+');
$pssh->push('*', parsub => \&ssh_run_parallel,
            ['/usr/bin/perl', '/root/cpu.pl', '/tmp/cpu'],
            ['/usr/bin/perl', '/root/memory.pl', '/tmp/memory']);

$pssh->run;

update: the error pointed by rahulruns below has been fixed!