Perl 求教数组的排列，急，谢谢
@ax=("6",9""100","98","70","51","68") #这个数组代表的数目
@bx=("300","400","250","3175","750","2050","1950") #这个数组代表的大小
@cx=("hole","hole","slot","hole","slot","hole","slot",) #表示形状 hole表示孔，slot表示槽
#上面的数据是意义对应的
# 要求： 如果@cx里面都是hole的话： 把@bx中的3175排在前面，然后就是由小到大的顺序排列
如果@cx里面有hole和slot两中形状的话，首先把@bx中的3175排在前面，然后就是由小到大的顺序排列hole形状， 最后就是由小到大排列slot形状
数组的排列 Perl
[解决办法]
如果不是非要perl的话：
In [9]: ax=("6","9","100","98","70","51","68") #这个数组代表的数目
...:
...: bx=("300","400","250","3175","750","2050","1950") #这个数组代表的大小
...:
...: cx=("hole","hole","slot","hole","slot","hole","slot",) #表示形状 hole表示孔，slot表示槽
In [10]: combined = zip(ax, bx, cx)
In [11]: combined.sort(key=lambda x: (x[1] != '3175', x[2], int(x[1])))
In [12]: combined
Out[12]:
[('98', '3175', 'hole'),
('6', '300', 'hole'),
('9', '400', 'hole'),
('51', '2050', 'hole'),
('100', '250', 'slot'),
('70', '750', 'slot'),
('68', '1950', 'slot')]
In [13]: zip(combined)
Out[13]:
[(('98', '3175', 'hole'),),
(('6', '300', 'hole'),),
(('9', '400', 'hole'),),
(('51', '2050', 'hole'),),
(('100', '250', 'slot'),),
(('70', '750', 'slot'),),
(('68', '1950', 'slot'),)]
In [14]: zip(*combined)
Out[14]:
[('98', '6', '9', '51', '100', '70', '68'),
('3175', '300', '400', '2050', '250', '750', '1950'),
('hole', 'hole', 'hole', 'hole', 'slot', 'slot', 'slot')]
In [15]:
#1/usr/bin/perl -w
use strict;
use Data::Dumper;
my @ax = qw( 6 9 100 98 70 51 68 );
my @bx = qw( 300 400 250 3175 750 2050 1950 );
my @cx = qw( hole hole slot hole slot hole slot ); # test 1
#my @cx = qw( hole hole hole hole hole hole hole ); # test 2
my @pre_sort;
my @sorted;
my $special; # it is used for storing anonymous array which include size [3175]
# Data processing
my %state; $state{$_}++ for @cx; # flags which are used to judge whether 'hole' and 'slot' are co-existence or not
my @data = map{ [ $_, shift @ax, shift @bx ] } @cx; # build basic data structure [shape, numb, size]
for my $shape ( @data ){
if ( $shape->[2] == 3175 ){
$special = $shape; # store reference of anonymous array which include size [3175]
next;
}
push @pre_sort, $shape; # array for sort whose one element(include size [3175]) has been filterd
}
if (defined $state{'hole'} and not defined $state{'slot'} ){
@sorted =
sort {
$a->[2] <=> $b->[2]; # sort 1
} @pre_sort;
} elsif ( defined $state{'hole'} and $state{'slot'} ){
@sorted =
sort {
$a->[0] cmp $b->[0] or # sort 2
$a->[2] <=> $b->[2] #
} @pre_sort;
}
unshift @sorted, $special; # package array with $special and @sorted( without element which include size[3175]
$Data::Dumper::Terse = 1;
print Dumper(@sorted);
# my @cx = qw( hole hole slot hole slot hole slot ); #test 1
# test 1 输出：
[
'hole',
'98',
3175
]
[
'hole',
'6',
300
]
[
'hole',
'9',
400
]
[
'hole',
'51',
2050
]
[
'slot',
'100',
250
]
[
'slot',
'70',
750
]
[
'slot',
'68',
1950
]
# my @cx = qw( hole hole hole hole hole hole hole ); # test 2
# test 2 输出：
[
'hole',
'98',
3175
]
[
'hole',
'100',
250
]
[
'hole',
'6',
300
]
[
'hole',
'9',
400
]
[
'hole',
'70',
750
]
[
'hole',
'68',
1950
]
[
'hole',
'51',
2050
]