Perl : Sort array element in alphabetical order

Question

I have a big array and I want to sort all the elements of the array in alphabetical order.

In a previous subroutine, the element of the array are being pushed to tc_reg array.

I have an array named @tc_lane. When I print element of the array it would look something like this

tx0_abc
rx0_fgw
ref_ghv
..

Now I want to sort this array like this,

ref_ghv
rx0_fgw
tx_abc
..

@SeanBright why delete? it's a simple question, but with a little bit of looking I don't see any existing question it duplicates; most sort questions are dealing with more complicated situations. — ysth
– ysth, Commented Jul 8, 2019 at 21:07
That's sorting an array in place where you have a reference to the array instead of an array variable — ysth
– ysth, Commented Jul 8, 2019 at 21:08
From the linked answer: "Perl allows arrays to be sorted in-place with the idiom @arr = sort @arr." - which is precisely the answer you gave. So I'm not sure what the issue is? — user21926
– user21926, Commented Jul 8, 2019 at 21:11

ikegami · Accepted Answer · 2019-07-09 06:09:35Z

8

If you want

rx0_fgw
rx10_fgw
rx2_fgw

use

my @sorted = sort @unsorted;

If you want

rx0_fgw
rx2_fgw
rx10_fgw

use

use Sort::Key::Natural qw( natsort );

my @sorted = natsort @unsorted;

answered Jul 9, 2019 at 6:09

ikegami

391k17 gold badges291 silver badges555 bronze badges

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

1 Comment

Both of these solutions assumes the only letters are lowercase ASCII letters. Other solutions might be needed in other situations.

ysth · Accepted Answer · 2019-07-08 21:04:20Z

2

You simply need to do:

@tc_lane = sort @tc_lane;

answered Jul 8, 2019 at 21:04

ysth

99.1k6 gold badges126 silver badges220 bronze badges