135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

#434 shuffle input array for sshcollector - stromsoe

Browse Source
This commit is contained in:
Oliver Gorwits
2018-10-19 14:50:54 +01:00
parent 779e0a618d
commit 0e9274467d
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/netdisco-sshcollector
View File

@@ -83,6 +83,10 @@ exit main();
sub main { sub main {
my @input = @{ setting('sshcollector') }; my @input = @{ setting('sshcollector') };
#one-line Fisher-Yates from https://www.perlmonks.org/index.pl?node=Array%20One-Liners
my ($i,$j) = (0);
@input[-$i,$j] = @input[$j,-$i] while $j = rand(@input - $i), ++$i < @input;
my @mce_result = mce_loop { my @mce_result = mce_loop {
my ($mce, $chunk_ref, $chunk_id) = @_; my ($mce, $chunk_ref, $chunk_id) = @_;
my $host = $chunk_ref->[0]; my $host = $chunk_ref->[0];