均勻分配文本行

inanin

文件內(nèi)容如下：

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個數(shù)不確定，第二列是唯一的，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

回復(fù) 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

回復(fù) 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

復(fù)制代碼

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]，假設(shè)問號后面連接有字符串?"-"c[b],
   
7. 然后再把"-"c[b]"\n"$0的值賦值一次給=號前面那個c[b]，輸出的結(jié)果會帶有--這兩個字符串?
   
8. 
   
9. 讀取到第二個c[b],b=1的行，把:冒號前面的$0,賦值給問號后面的c[b]"\n"，最終的值是c[b]"\n"，不包含"-"這個字符串？
   
10. 
    
11. 最后，i in c ，i的個數(shù)是ip行數(shù)最多的那個ip?

復(fù)制代碼

wh7211

回復(fù) 5# inanin


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

inanin

回復(fù) 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

復(fù)制代碼