一个关于数组排序问题？

zhangfenyun

    数组A里面有和多数字，但是我想按照一定的顺序把他排列！这个顺序不完全是从小到大排列的？


     
  $hToolInfo{$tool} = {
size => $size,
type => $size == 2.055 ? '1_spec' : substr($size,-2,1) == 1 ? '3_slot' : $size == 0.59 ? '5_end' : $size == 0.98 ? '6_end' : $size == 3.175 ? '7_end': substr($size,-2,1) == 2 ? '4_kuokong' : substr($size,-2,1) == 3 ? '4_together':  '2_normal',
};

想按照这种方式去排列！

q1208c

自定义 sort 函数的 参数 fun 就可以了吧?
下面的url有说明

http://perldoc.perl.org/functions/sort.html

zhangfenyun

还是不能理解！

jason680

回复 1# zhangfenyun

>>数组A里面有和多数字...

数组A !!??   

zhangfenyun

@a=(0.25,0.31,0.59,3.175,0.80,0.90,3.23,1.151,1.51，0.9  就是这些数字啊，!

jason680

回复 5# zhangfenyun

1. input data
2. procedure rule
3. output data

   

zhangfenyun

  @a=("600,900,2055,1551,1401,3175,590,980,3203,3503")

  我想变成

  @a=("2055  600   900  1401   1551   3203   3503   590  980   3175")     


排第一个的是 2055

其次是尾数为0的，从小到大

其次是尾数为1的，从小到大

其次是尾数为2的，从小到大

其次是尾数为3的，从小到大

然后是 590

再是 980

最后是3175

jason680

回复 7# zhangfenyun

>>其次是尾数为0的，从小到大

590, 980  <== 尾数为0

jason680

回复 7# zhangfenyun

Here you are
Note: There are many issues on your procedure rule

$ cat sort_50123x.pl
#!/bin/env perl
use strict;
use warnings;

# There is simple way to create a hash of increase value  by an array
# my @aSort = qw/2055 0 1 2 3 590 980 3175/;
# my %hSort = map{ $aSort[$_] => $_ } 0 .. @aSort-1;

my %hSort = (
  '2055' => 1,
   '0' => 2,
   '1' => 3,
   '2' => 4,
   '3' => 5,
   '590' => 6,
   '980' => 7,
   '3175' => 8
);
my @a = (600,900,2055,1551,1401,3175,590,980,3203,3503);

my @a_sorted = sort by50123 @a;
print "@a_sorted\n";

sub by50123 {
  #my($a, $b) = @_;
  my($sA, $sB) = (9, 9);
  $sA = $hSort{$a%10} if(exists $hSort{$a%10});
  $sB = $hSort{$b%10} if(exists $hSort{$b%10});
  $sA = $hSort{$a} if(exists $hSort{$a});
  $sB = $hSort{$b} if(exists $hSort{$b});

  #print "A=$sA($a), B=$sB($b)\n";
  $sA <=> $sB ||
  $a  <=> $b;
}

$ perl sort_50123x.pl
2055 600 900 1401 1551 3203 3503 590 980 3175


   

zhangfenyun

大神，我真的很佩服