一個關(guān)于數(shù)組排序問題？

zhangfenyun

    數(shù)組A里面有和多數(shù)字，但是我想按照一定的順序把他排列！這個順序不完全是從小到大排列的？


     
  $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 函數(shù)的 參數(shù) fun 就可以了吧?
下面的url有說明

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

zhangfenyun

還是不能理解！

jason680

回復 1# zhangfenyun

>>數(shù)組A里面有和多數(shù)字...

數(shù)組A !!??   

zhangfenyun

@a=(0.25,0.31,0.59,3.175,0.80,0.90,3.23,1.151,1.51，0.9  就是這些數(shù)字啊，!

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

其次是尾數(shù)為0的，從小到大

其次是尾數(shù)為1的，從小到大

其次是尾數(shù)為2的，從小到大

其次是尾數(shù)為3的，從小到大

然后是 590

再是 980

最后是3175

jason680

回復 7# zhangfenyun

>>其次是尾數(shù)為0的，從小到大

590, 980  <== 尾數(shù)為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

大神，我真的很佩服