How to re-order list elements in Perl - perl

Question

I have a list in Perl.
#alist=("a_vld","a_sf","a_ef","a_val");
print join(',', #alist), "\n";
Output:
a_vld,a_sf,a_ef,a_val
How can I re-order the elements in list such that its output is as following expected output:
a_sf,a_ef,a_vld,a_val
Note: a_ will keep changing with different strings but I want to preserve the order of sf,ef,vld,val

Answer 1

One way to order (sort) by a given set is to associate a numeric order with its elements.
Then we need to find these keys in the strings in the list to sort. That is done once, ahead of the actual sorting, via the Schwartzian transform.
use List::Util qw(first);
my #alist = ("a_vld", "a_sf", "a_ef", "a_val");
my #keys = qw(sf ef vld val); # keys to sort by
my %order_by = map { $keys[$_] => $_ } 0..$#keys;
my #sorted =
map { $_->[0] }
sort { $order_by{$a->[1]} <=> $order_by{$b->[1]} }
map {
my $elem = $_;
[ $elem, first { $elem =~ /$_/ } keys %order_by ]
}
#alist;
say "#sorted";
This prints the line:   a_sf a_ef a_vld a_val
The elements of the list are associated with the sorting keys by finding the key in the string via a regex. With this in mind the above can be used reasonably generally, with a desired list of keys .

Answer 2

For a short list, use a sort function that identifies the sequences in order
#sorted = sort {
($b =~ /sf$/) <=> ($a =~ /sf$/)
|| ($b =~ /ef$/) <=> ($a =~ /ef$/)
|| ($b =~ /vld$/) <=> ($a =~ /vld$/)
|| ($b =~ /val$/) <=> ($a =~ /val$/)
} #alist;

Answer 3

If there's always a _ before the code, and if the code is always at the end
use Sort::Key qw( ikeysort );
my #order = qw( sf ef vld val );
my %order = map { $order[$_] => $_ } 0..$#order;
my #sorted = ikeysort { /_([^_\W]+)\z/ ? $order{$1} : 0 } #unsorted;
The above is a faster, cleaner version of the following:
my #order = qw( sf ef vld val );
my %order = map { $order[$_] => $_ } 0 .. $#order;
my #sorted =
sort {
my $key_a = /_([^_\W]+)\z/ ? $order{$1} : 0;
my $key_b = /_([^_\W]+)\z/ ? $order{$1} : 0;
$key_a <=> $key_b || $a cmp $b
}
#unsorted;
Otherwise
use Sort::Key qw( ikeysort );
my #order = qw( sf ef vld val );
my %order = map { $order[$_] => $_ } 0..$#order;
my $alt = join '|', map quotemeta, #order;
my $re = qr/($alt)/;
my #sorted = ikeysort { /$re/ ? $order{$1} : 0 } #unsorted;
The above is a faster, cleaner version of the following:
my #order = qw( sf ef vld val );
my %order = map { $order[$_] => $_ } 0..$#order;
my $alt = join '|', map quotemeta, #order;
my $re = qr/($alt)/;
my #sorted =
sort {
my $key_a = /$re/ ? $order{$1} : 0;
my $key_b = /$re/ ? $order{$1} : 0;
$key_a <=> $key_b || $a cmp $b
}
#unsorted;