Shell Programming and Scripting

Server1 - OverLoad - 252
Server2 - OverLoad - 431
Server3 - AcceptLoad - 550
Server4 - AcceptLoad - 59
Server5 - AcceptLoad - 224
Server6 - OverLoad - 10
.....

    Server1's load 252 can be moved to Server3 (all 252 since it has 550 has capacity)
    Server2's load 298 can be moved to Server3 (550- 252 = 298, since 252 is already occupied by server1's load)
    Server2's load 59 can be moved to Server4 (59, Maximum available is 59 only)
    Server2's load 74 can be moved to Server 5 (74 = 431 -298-59, after shared with Server3,4)
    Server6's load 10 can be moved to Server 5 (It has got more space to accommodate)

awk     '                       {T[$1]=$3=="OverLoad"?-$5:$5}
         END{for (i in T)       {print i, T[i]}}
        ' file |
sort -n -k2 |
awk     '                       {T[NR]=$2
                                 S[NR]=$1
                                }
         END                    {D=NR; U=1
                                 while (T[U] < 0) {
                                   if (T[D] + T[U] >= 0) {print S[U] "->" S[D] ": " (-T[U]); T[D]+=T[U]; T[U++]=0}
                                   if (T[D] + T[U] <  0) {print S[U] "->" S[D] ": " ( T[D]); T[U]+=T[D]; T[D--]=0}
                                  }
                                }
        '
Server2->Server3: 431
Server1->Server3: 119
Server1->Server5: 133
Server6->Server5: 10

my %overload;
my %idle;

sub handle{
	OUTER:
	foreach my $os (sort keys  %overload){
		foreach my $is (sort keys %idle){
			my $ol = $overload{$os};
			my $available = $idle{$is};
			if($available > $ol){
				print "$os ",$ol," can be done on $is\n";
				$idle{$is} = $available - $ol;
				delete $overload{$os};
				next OUTER;
			}
			elsif ($available == $ol){
				print "$os ",$ol," can be done on $is\n";
				delete $overload{$os};
				delete $idle{$is};
				next OUTER;
			}
			else{
				print "$os ",$available," can be done on $is\n";
				delete $idle{$is};
				$overload{$os} = $ol-$available;
				next;
			}
		}
	}
}

sub remain{
	my @ol = keys %overload;
	if($#ol>=0){
		print "Still have below to be accormodated\n";
		foreach(@ol){
			print $_,":",$overload{$_},"\n";
		}
	}
	
	my @id = keys %idle;
	if($#id>=0){
		print "Still have below idle\n";
		foreach(@id){
			print $_,":",$idle{$_},"\n";
		}
	}
}

while(<DATA>){
	chomp;
	my @arr = split("-",$_);
	@arr = map {s/\s+//g;$_} @arr;
	if($arr[1] eq 'OverLoad'){
		$overload{$arr[0]}=$arr[2];
	}
	else{
		$idle{$arr[0]} =  $arr[2];
	}		
}

handle();

remain();
__DATA__
Server1 - OverLoad - 252
Server2 - OverLoad - 431
Server3 - AcceptLoad - 550
Server4 - AcceptLoad - 59
Server5 - AcceptLoad - 224
Server6 - OverLoad - 1000