perl script to generate server round-robin assignments
- From: inetquestion <inetquestion@xxxxxxxxxxx>
- Date: Fri, 28 Aug 2009 17:02:36 -0700 (PDT)
#!/usr/bin/perl
##################
### Main Begin ###
##################
if ($#ARGV < 0) {
&DoUsage;
exit;
}
my ($hostname, $limit) = @ARGV; # Script inputs
if ($hostname =~ /^([\d]+)\.([\d]+)\.([\d]+)\.([\d]+)$/) { # Filter
on IP address
$hostString=$hostname; # Save IP
} else {
($hostString) = split /\./,$hostname; # Obtain first portion
of FQDN component
}
@B = qw(svr01 svr02 svr03 svr04 svr05 svr06); # Array containing
assignable server
$binaryNumber = DoAsc2bin($hostString); # Convert string
into base2
$binaryNumber =~ s/\s+//g; # Remove spaces
from base2 string
$decString = DoBin2dec($binaryNumber); # Convert base2
string to base10
$assignment = DoAssign(scalar(@B), $decString, $hostname, $limit); #
Call subroutine to get assignments
print "$hostname: $assignment\n";
exit;
########################
### Subroutine Begin ###
########################
sub DoUsage() {
print <<EOM;
Generates assignment values where servers in list-A need to
communicate with all or some of the servers in list-B. The input to
the script is a single server hostname or IP from list-A. This server
name will go through a conversion (ascII->Binary->Dec), then the order
of the assignments will be made. As long as no two servers have the
same hostname, the assignment will be varied across the list to ensure
the servers in List-B are distributed evenly across those in List-A.
Usage: $0 <hostname|IP> <entry limit>
EOM
}
sub DoAsc2bin { # Convert ASCII string to binary equivalent
my ($string) = @_; # Input
my @bytes; # Declare byte array
for (split //, $string) { # Run throuh for loop per character
of string being split
push @bytes, unpack "B8", $_; # Store binary equivalent of
each character into @bytes
}
return wantarray ? @bytes : join " ", @bytes; # Return @bytes or
a string of all content of @bytes
}
sub DoBin2dec {
return unpack("N", pack("B32", substr("0" x 32 . shift, -32))); #
Converts binary string to decimal equivalent
}
sub DoAssign {
my ($numListB, $num, $host, $lim) = @_; # Function inputs
$lim ||= 100; # Set lim=100 unless otherwise specified
@B = reverse(@B); # Reverse array, then pop last
my $popNum = $num % $numListB; # Get modulus, then pop that
many elements from reversed array
while ( $popNum != 0 ) { #
Iterate until all values have been popped off array
push(@popSave, pop(@B)); # Save popped elements
$popNum--; # Decrement pop counter
}
@B = reverse(@B); # Reverse array
push(@B, @popSave); # Appennd popped elements to
reversed (original direction) array
for( $i = 0; $i < scalar(@B); $i++) { # Loop
through all array elements, maintain counter
if( $B[$i] eq $host ) { # Look for match
#print "Match on $host\n"; # Debug statement
@B = ($B[$i], @B[0..($i-1)], @B[($i+1)..scalar
(@B)]); # Modify array order by moving the "match" to front
last; # Move on
}
}
return join " ", @B[0..($lim-1)]; # Return space
deleimited string
}
.
- Follow-Ups:
- Re: perl script to generate server round-robin assignments
- From: Tad J McClellan
- Re: perl script to generate server round-robin assignments
- From: John W. Krahn
- Re: perl script to generate server round-robin assignments
- Prev by Date: Re: strategy for parsing text file
- Next by Date: Re: strategy for parsing text file
- Previous by thread: strategy for parsing text file
- Next by thread: Re: perl script to generate server round-robin assignments
- Index(es):
Relevant Pages
|
Loading
