均匀分配文本行

ll104567

while(<DATA>){
    @F = split /\//;
    $ip = $F[0];
    push @{$a{$ip}},$_;
    unless(grep /\b$ip\b/,@ip_list){
        push @ip_list,$ip
    }
    $c += 1;
}

$count = 0;
while(1){
    last if $count >= $c;
    $length = @ip_list;
    $get = $ip_list[$count%$length];
    if(@{$a{${get}}}){
        print shift @{$a{${get}}};
    }else{
        @ip_list = grep !/\b$get\b/,@ip_list;
        next;
    }
    $count += 1;
}

__DATA__
192.168.3.110/s-x00ABB-30617
192.168.3.110/s-x00ABB-30918
192.168.3.110/s-x00ABB-30923
192.168.3.110/s-x00ABB-30925
192.168.3.110/s-x00ABB-30928
192.168.3.110/s-x00ABB-30929
192.168.3.134/s-x00ABB-30933
192.168.3.134/s-x00ABB-30940
192.168.3.134/s-x00ABB-30947
192.168.3.134/s-x00ABB-30950
192.168.3.134/s-x00ABB-30992
192.168.3.134/s-x00ABB-30993
192.168.3.118/s-x00ABB-50003
192.168.3.118/s-x00ABB-50005
192.168.3.118/s-x00ABB-50007
192.168.3.118/s-x00ABB-50008
192.168.3.118/s-x00ABB-50009