in reply to Re: Load Balancing
in thread Load Balancing
Thanks ya'll,
I forgot to mention that my hosts needed to be in a list...also the reason I wanted to not require an external call is because the script calling my hosts doesn't belong to me thus I was attempting to make the code simple and not require additional Modules to be installed/called...
After some thought/research I have decided upon the following code as my solution...
Danny
After some thought/research I have decided upon the following code as my solution...
Thanks again everyone for your suggestions...#!/usr/bin/perl sub get_hosts { @hosts=("host1.domain.com","host1.domain.com","host1.domain.com","h +ost1.domain.com"); @app = (); while (@hosts) { $rv = int(rand(@hosts)); push @app,$hosts[$rv]; $hosts[$rv] = $hosts[$#hosts]; pop @hosts; } $thosts = "$app[0],$app[1],$app[2],$app[3]"; return $thosts; } print &get_hosts();
Danny
|
---|
In Section
Seekers of Perl Wisdom