#!/usr/bin/perl
use threads;
use Net::SSH::Perl;
sub thread_routine {
if ($i<=9) {
$server = 's0'. $i;
}
else {
$server = 's'. $i;
}
printf ( "Подключаемся к $server\n");
my $ssh = Net::SSH::Perl ->new($server);
$ssh->login("user", "xxx");
$cmd = 'df -k';
my ($out, $err, $exit) = $ssh->cmd($cmd);
print ( "$out");
return $i;
}
foreach $i (1..10) {
push @threads,threads->create('thread_routine',$i);
}
foreach $thread (@threads) {
$thread->join();
}
Подключаемся к s01
Подключаемся к s02
Подключаемся к s03
Подключаемся к s04
...
Подключаемся к s10
Ошибка сегментирования (сделан дамп памяти)