http://qs1969.pair.com?node_id=11141502


in reply to Sort list by position of items in another list

I would say this is a radix sort: 
my $pchr = "KQRBNP";
my $w1 = "QRKPNBNBQRK";

my %s;
$s{$_}++ for split //, $w1;
my $w2 = $pchr =~ s/(.)/$1 x $s{$1}/egr;

print "$w1 -> $w2\n"

[download]

In Section Seekers of Perl Wisdom