均匀分配文本行

inanin

文件内容如下：

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

以/分隔的第一列IP个数不确定，第二列是唯一的，IP没有分顺序一个接着一个，平均分配即可效果如下：
192.168.3.110/s-x00ABB-30617
192.168.3.134/s-x00ABB-30933
192.168.3.118/s-x00ABB-50003
192.168.3.110/s-x00ABB-30918
192.168.3.134/s-x00ABB-30940
192.168.3.118/s-x00ABB-50005
192.168.3.110/s-x00ABB-30923
192.168.3.134/s-x00ABB-30947
192.168.3.118/s-x00ABB-50007
192.168.3.110/s-x00ABB-30925
192.168.3.134/s-x00ABB-30950
192.168.3.118/s-x00ABB-50008
192.168.3.110/s-x00ABB-30928
192.168.3.134/s-x00ABB-30992
192.168.3.118/s-x00ABB-50009
192.168.3.110/s-x00ABB-30929
192.168.3.134/s-x00ABB-30993

又来麻烦版主 @wh7211 ，给摄影师加个鸡腿不如给版主两个大鸡腿！

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

inanin

回复 2# ll104567

@ll104567,谢谢
文件有71855行，第一列从第一行开始28.37到28.43的IP有45个，到2071行28.37到28.43间隔85行
1801:192.168.28.37/s-x00ABB-212169
1845:192.168.28.43/s-x00ABB-212923
1846:192.168.28.37/s-x00ABB-212171
1890:192.168.28.43/s-x00ABB-212942
1891:192.168.28.37/s-x00ABB-212172
1935:192.168.28.43/s-x00ABB-212953
1936:192.168.28.37/s-x00ABB-212173
1980:192.168.28.43/s-x00ABB-212954
1981:192.168.28.37/s-x00ABB-212174
2025:192.168.28.43/s-x00ABB-212956
2026:192.168.28.37/s-x00ABB-212176
2070:192.168.28.43/s-x00ABB-213021
2071:192.168.28.37/s-x00ABB-212177
2156:192.168.28.43/s-x00ABB-213050
2157:192.168.28.37/s-x00ABB-212178
2200:192.168.28.43/s-x00ABB-213074
2201:192.168.28.37/s-x00ABB-212179
2244:192.168.28.43/s-x00ABB-213092
2245:192.168.28.37/s-x00ABB-212182
2288:192.168.28.43/s-x00ABB-213113
2289:192.168.28.37/s-x00ABB-212184
2332:192.168.28.43/s-x00ABB-213115

wh7211

回复 1# inanin

1. cat 1
   
2. 192.168.3.110/s-x00ABB-30617
   
3. 192.168.3.110/s-x00ABB-30918
   
4. 192.168.3.110/s-x00ABB-30923
   
5. 192.168.3.110/s-x00ABB-30925
   
6. 192.168.3.110/s-x00ABB-30928
   
7. 192.168.3.110/s-x00ABB-30929
   
8. 192.168.3.134/s-x00ABB-30933
   
9. 192.168.3.134/s-x00ABB-30940
   
10. 192.168.3.134/s-x00ABB-30947
    
11. 192.168.3.134/s-x00ABB-30950
    
12. 192.168.3.134/s-x00ABB-30992
    
13. 192.168.3.134/s-x00ABB-30993
    
14. 192.168.3.118/s-x00ABB-50003
    
15. 192.168.3.118/s-x00ABB-50005
    
16. 192.168.3.118/s-x00ABB-50007
    
17. 192.168.3.118/s-x00ABB-50008
    
18. 192.168.3.118/s-x00ABB-50009
    
19. 
    
20. awk -F"/" '{if($1!=a){b=0};b++;c[b]=c[b]?c[b]"\n"$0:$0;a=$1}END{for(i in c){print c[i]}}' 1
    
21. 192.168.3.110/s-x00ABB-30617
    
22. 192.168.3.134/s-x00ABB-30933
    
23. 192.168.3.118/s-x00ABB-50003
    
24. 192.168.3.110/s-x00ABB-30918
    
25. 192.168.3.134/s-x00ABB-30940
    
26. 192.168.3.118/s-x00ABB-50005
    
27. 192.168.3.110/s-x00ABB-30923
    
28. 192.168.3.134/s-x00ABB-30947
    
29. 192.168.3.118/s-x00ABB-50007
    
30. 192.168.3.110/s-x00ABB-30925
    
31. 192.168.3.134/s-x00ABB-30950
    
32. 192.168.3.118/s-x00ABB-50008
    
33. 192.168.3.110/s-x00ABB-30928
    
34. 192.168.3.134/s-x00ABB-30992
    
35. 192.168.3.118/s-x00ABB-50009
    
36. 192.168.3.110/s-x00ABB-30929
    
37. 192.168.3.134/s-x00ABB-30993

复制代码

inanin

@wh7211  

1. 文件71855行，直接 >test.txt
   
2. real        0m0.095s
   
3. user        0m0.088s
   
4. sys        0m0.007s
   
5. 
   
6. 读取第一行第一个c[b]，b=1，会把:冒号后面的$0的值赋值给?后面的c[b]，假设问号后面连接有字符串?"-"c[b],
   
7. 然后再把"-"c[b]"\n"$0的值赋值一次给=号前面那个c[b]，输出的结果会带有--这两个字符串?
   
8. 
   
9. 读取到第二个c[b],b=1的行，把:冒号前面的$0,赋值给问号后面的c[b]"\n"，最终的值是c[b]"\n"，不包含"-"这个字符串？
   
10. 
    
11. 最后，i in c ，i的个数是ip行数最多的那个ip?

复制代码

wh7211

回复 5# inanin


不是的。d=a?b:c等效于if(a){d=b}else{d=c}。

inanin

回复 6# wh7211

,这样子看，清楚许多了，谢谢

ll251

按照版主的思路改了下

1. awk -F"/" '{a[$1]++;c[a[$1]]=c[a[$1]]?c[a[$1]]"\n"$0:$0}END{for(i in c){print c[i]}}' 1

复制代码