已解决！谢谢！排序的问题

54red

我一个hash_test键值是这样的chr1:378格式，我用语句：
foreach my $data_ref_2 (sort {$a cmp $b} keys(%hash_test)) {
       
        print $data_ref_2."\t";}

sort {$a <=> $b} keys(%hash_test) 结果也不对，
求助大家！我想要的结果格式是：
chr1:100
chr2:3
chr2:4
chr10:35
chr10:89
chr22:3
chrX:45

结果排的不是我想要的：                        
chr10:101544447
chr10:64573771
chr11:118898436
chr11:1775399
chr11:45937267
chr12:103234245
chr12:56398118
chr13:103527850
chr13:26273385
chr14:105167807
chr15:28419713
chr15:42703931
chr15:52605941
chr16:29825126
chr16:55862762
chr16:56548501
chr17:10600810
chr17:48265495
chr18:42456670
chr18:72223591
chr19:36291105
chr1:114377568
chr1:154574820
chr1:169519049
chr1:203148633
chr1:27105588
chr1:53676401
chr20:31022959
chr22:36623731
chr2:152402446
chr2:179600563
chr2:179621477
chr2:25194771
chr2:71840504
chr3:123451773
chr5:177422876
chr5:90119324
chr6:170871034
chr7:128487866
chrX:130420415
chrX:135961587
chrX:140096916
chrX:140993912
chrX:153063113
chrX:17705850
chrX:49061611
chrX:69510335
chrX:73811761

zhlong8

<=> 比较数字的大小
cmp 比较字符串每个字符编码的大小

而你需要的规则是先把字符串分3段，比较第二段数字大小，如果第二段是字符则比较字符大小，第二段一样比较第三段数字大小。
这么复杂的规则你觉得靠试错法能试出来吗？还是你认为有种语言内置这样的排序规则

54red

查查了查基础知识，共享给和我一样的人。
@articles = sort {sub rule} @array;
数字比较符： <, >, <=, >=, ==, <=>
字符串比较符：lt, gt, le, gr, eq, cmp

$a <=> $b 的返回值
$a 大于$b        1
$a 等于$b        0
$a 小于$b        -1

Okelani

output

1. chr1:27105588
   
2. chr1:53676401
   
3. chr1:114377568
   
4. chr1:154574820
   
5. chr1:169519049
   
6. chr1:203148633
   
7. chr2:25194771
   
8. chr2:71840504
   
9. chr2:152402446
   
10. chr2:179600563
    
11. chr2:179621477
    
12. chr3:123451773
    
13. chr5:90119324
    
14. chr5:177422876
    
15. chr6:170871034
    
16. chr7:128487866
    
17. chr10:64573771
    
18. chr10:101544447
    
19. chr11:1775399
    
20. chr11:45937267
    
21. chr11:118898436
    
22. chr12:56398118
    
23. chr12:103234245
    
24. chr13:26273385
    
25. chr13:103527850
    
26. chr14:105167807
    
27. chr15:28419713
    
28. chr15:42703931
    
29. chr15:52605941
    
30. chr16:29825126
    
31. chr16:55862762
    
32. chr16:56548501
    
33. chr17:10600810
    
34. chr17:48265495
    
35. chr18:42456670
    
36. chr18:72223591
    
37. chr19:36291105
    
38. chr20:31022959
    
39. chr22:36623731
    
40. chrA:73811763
    
41. chrX:17705850
    
42. chrX:49061611
    
43. chrX:69510335
    
44. chrX:73811761
    
45. chrX:130420415
    
46. chrX:135961587
    
47. chrX:140096916
    
48. chrX:140993912
    
49. chrX:153063113
    

复制代码

code

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. sub SORT {
   
5.     my $MAX = 4;   
   
6.     # chr10: 1ength 10 = 2, chr100: length 100 = 3
   
7.     map { $_->[0] }
   
8.     sort { $a->[1] cmp $b->[1] || $a->[2] <=> $b->[2] }
   
9.     map {
   
10.         my ( $a, $b ) = split ':', substr $_, 3;   
    
11.         # length 'chr' = 3
    
12.         $a = sprintf "%0*s", $MAX, $a if ord($a) < 65;  
    
13.         # ord A = 65
    
14.         [ $_, $a, $b ]
    
15.     } @_;
    
16. }
    
17. 
    
18. say SORT <DATA>;
    
19. 
    
20. __DATA__
    
21. chr10:101544447
    
22. chr10:64573771
    
23. chr11:118898436
    
24. chr11:1775399
    
25. chr11:45937267
    
26. chr12:103234245
    
27. chr12:56398118
    
28. chr13:103527850
    
29. chr13:26273385
    
30. chr14:105167807
    
31. chr15:28419713
    
32. chr15:42703931
    
33. chr15:52605941
    
34. chr16:29825126
    
35. chr16:55862762
    
36. chr16:56548501
    
37. chr17:10600810
    
38. chr17:48265495
    
39. chr18:42456670
    
40. chr18:72223591
    
41. chr19:36291105
    
42. chr1:114377568
    
43. chr1:154574820
    
44. chr1:169519049
    
45. chr1:203148633
    
46. chr1:27105588
    
47. chr1:53676401
    
48. chr20:31022959
    
49. chr22:36623731
    
50. chr2:152402446
    
51. chr2:179600563
    
52. chr2:179621477
    
53. chr2:25194771
    
54. chr2:71840504
    
55. chr3:123451773
    
56. chr5:177422876
    
57. chr5:90119324
    
58. chr6:170871034
    
59. chr7:128487866
    
60. chrX:130420415
    
61. chrX:135961587
    
62. chrX:140096916
    
63. chrX:140993912
    
64. chrX:153063113
    
65. chrX:17705850
    
66. chrX:49061611
    
67. chrX:69510335
    
68. chrX:73811761
    
69. chrA:73811763
    

复制代码

jason680

回复 4# Okelani

some bug and modified ...
...
chrX:73811761
chrA:73811763

#!/usr/bin/perl
use strict;
use warnings;

sub chr_sort{
  #chr2:25194771
  #chr10:64573771
  #chrA:73811763
  #chrX:17705850
  
  map{$_->[0]}
  sort{$a->[1] cmp $b->[1]}
  map{
    my($sChr_num, $sVal) = split(':');
    $sChr_num =~ s/(\d+)/sprintf("%8d",$1)/e;
    [ $_, sprintf("%s:%20d",$sChr_num, $sVal) ];   
  } @_;
}

print chr_sort <DATA>;

   

54red

谢谢大家的帮助，我也用一个笨方法实现了，也贴出来！
foreach my $line (@{$data}) {
                    my $pos_real=$line->[0];#chrX:73962092
                    $pos_real=~/chr(.*):(\d+)/;
                    if ($1 eq "X"){ $hash_pos{23*10000000000+$2} = $line;}
                elsif($1 eq "Y"){ $hash_pos{24*10000000000+$2} = $line; }
                    else{$hash_pos{$1*10000000000+$2} = $line; }
         }
         foreach my $key_new (sort{$a <=>$b} (keys %hash_pos)) {
#############
}

Okelani

回复 5# jason680


thanks