perlquestion
fionbarr
I'm trying to sort date that looks like this:
<code>
29 '0,wupra00a0537'
30 '31,wppra00a0513'
31 '0,wupra00a0535'
32 '0,wuprd02a0089'
33 '0,wupwa07a0663'
34 '0,wdpwa00a0013'
35
</code>
my code looks like this:
<code>
my @array = ();
@array = map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { [ $_, /.+,/ ] } @cpu_lt_40
</code>
I want to sort by the number in descending order and the sort result is (partial):
<code>
147 '0,wuprm00a0539'
148 '0,wuprm00a0539'
149 '28,wppra02a0015'
150 '24,wppra01a0016'
151 '0,wupra00a0532'
152 '15,wppra01a0015'
153 '22,wppra01a0095'
</code>