排序

haooooaaa

1. sort -k1,1 -k2n file
   
2. a        1n8
   
3. a        9n17
   
4. a        16
   
5. a        18
   
6. a        19
   
7. a        20
   
8. a        21
   
9. a        22
   
10. a        23
    
11. a        24
    
12. a        25
    
13. a        26
    
14. a        27
    
15. a        28
    
16. b        1n9
    
17. b        10n16
    
18. b        17n19
    
19. b        20n22
    
20. b        23n25
    

复制代码

q1208c

回复 1# ma3501406

两种办法？ 确实不是在写作业 ？

wh7211

回复 1# ma3501406

1. awk -F" +|n" '{a[$1][$2]=$0}END{PROCINFO["sorted_in"]="@ind_str_asc";for(i in a){PROCINFO["sorted_in"]="@ind_num_asc";for(j in a[i]){print a[i][j]}}}' file

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $data = {};
   
6. while(<DATA>){
   
7.         my ($s, $id, @nums) = ($_, split(/\s+|n/));
   
8.         push(@{$data->{$id}}, [@nums, $s]);
   
9. }
   
10. 
    
11. foreach(sort {$a cmp $b} keys %$data){
    
12.         map {print($_->[-1])} sort {$a->[0] <=> $b->[0]} @{$data->{$_}};
    
13. }
    
14. 
    
15. __DATA__
    
16. a        16
    
17. a        18
    
18. a        19
    
19. a        1n8
    
20. a        20
    
21. a        21
    
22. a        22
    
23. a        23
    
24. a        24
    
25. a        25
    
26. a        26
    
27. a        27
    
28. a        28
    
29. a        9n17
    
30. b        10n16
    
31. b        17n19
    
32. b        1n9
    
33. b        20n22
    
34. b        23n25
    

复制代码

wh7211

回复 6# ma3501406

你把awk版本升级到4.0+就没错误了。
$ awk --version
GNU Awk 4.1.3, API: 1.1