note
onegative
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...
<br><br>
After some thought/research I have decided upon the following code as my solution...
<br><br>
<code>
#!/usr/bin/perl
sub get_hosts {
@hosts=("host1.domain.com","host1.domain.com","host1.domain.com","host1.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();
</code>
Thanks again everyone for your suggestions...<br><br>
Danny
651211
651232