Neither your sample nor your description make it clear how you want the data sorted. However the following may help you sort out whatever it it you want to do:
use strict;
use warnings;
my @array = map {$_->[0]}
sort {$b->[5] <=> $a->[5] || $b->[3] <=> $a->[3]}
map {[$_, /(\d+),(\D+)(\d+)(\D+)(\d+)/]}
map {chomp; s/'//g; $_} <DATA>;
print join "\n", @array;
__DATA__
31 '0,wupra00a0535'
147 '0,wuprm00a0539'
148 '0,wuprm00a0539'
149 '28,wppra02a0015'
150 '24,wppra01a0016'
151 '0,wupra00a0532'
152 '15,wppra01a0015'
Prints:
147 0,wuprm00a0539
148 0,wuprm00a0539
31 0,wupra00a0535
151 0,wupra00a0532
150 24,wppra01a0016
149 28,wppra02a0015
152 15,wppra01a0015
Perl is the programming world's equivalent of English
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.