Sorting strings+numbers in Perl

Question

I have an array with these values:

scores Parent=mRNA1
scores Parent=mRNA2
scores Parent=mRNA3
scores Parent=mRNA4
scores Parent=mRNA5
scores Parent=mRNA6
scores Parent=mRNA7
scores Parent=mRNA8
scores Parent=mRNA9
scores Parent=mRNA10
scores Parent=mRNA11

but I cannot sort them. By sorting them using sort { $a cmp $b }, I obtain:

scores Parent=mRNA1
scores Parent=mRNA10
scores Parent=mRNA11
scores Parent=mRNA2
scores Parent=mRNA3
scores Parent=mRNA4
scores Parent=mRNA5
scores Parent=mRNA6
scores Parent=mRNA7
scores Parent=mRNA8
scores Parent=mRNA9

What should I do?

mpapec · Accepted Answer · 2014-02-23 20:13:57Z

4

You can isolate numbers, and compare/sort them numerically using <=>

@arr = map $_->[0], sort{ $a->[1] <=> $b->[1] } map [ $_, /(\d+)/ ], @arr;

answered Feb 23, 2014 at 20:13

mpapec

50.7k8 gold badges71 silver badges133 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Kenosis · Accepted Answer · 2014-02-23 20:22:46Z

3

You can use Sort::Naturally for this:

use strict;
use warnings;
use Sort::Naturally;

chomp( my @arr = <DATA> );
print "$_\n" for nsort @arr;

__DATA__
scores Parent=mRNA9
scores Parent=mRNA10
scores Parent=mRNA11
scores Parent=mRNA1
scores Parent=mRNA2
scores Parent=mRNA3
scores Parent=mRNA4
scores Parent=mRNA8
scores Parent=mRNA5
scores Parent=mRNA6
scores Parent=mRNA7

Output:

scores Parent=mRNA1
scores Parent=mRNA2
scores Parent=mRNA3
scores Parent=mRNA4
scores Parent=mRNA5
scores Parent=mRNA6
scores Parent=mRNA7
scores Parent=mRNA8
scores Parent=mRNA9
scores Parent=mRNA10
scores Parent=mRNA11

answered Feb 23, 2014 at 20:22

Kenosis

6,1941 gold badge18 silver badges16 bronze badges

Collectives™ on Stack Overflow

Sorting strings+numbers in Perl

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related