#!/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(); }

Connect to s01

Connect to s02

Connect to s03

Connect to s04

...

Connect to s10

Segmentation error (memory dump made)

    1 answer 1

    Rewrote the code, now the hosts are taken from the file. Instead of the threads module, I use Parallel :: ForkManager. Works, segmentation errors do not occur.

     #!/usr/bin/perl -w use strict; use Parallel::ForkManager; use Net::SSH::Perl; my $max_procs = 3; my @hosts; my $timeout = 30; my $input = shift; die "Usage: $0 FILE\n" if ! $input; open (INPUT, $input) || die "Can't read '$input': $!\n"; while (<INPUT>) { chomp ($_); my $line = $_; push @hosts, $line; } close INPUT; my $pm = new Parallel::ForkManager($max_procs); foreach my $host (@hosts) { my $pid = $pm->start() and next; print "$host \n"; my $ssh = Net::SSH::Perl ->new("$host"); $ssh->login("user", "xxx"); my $cmd = 'w'; my($out, $err, $exit) = $ssh->cmd($cmd); print "$out \n"; $pm->finish; } $pm->wait_all_children;