Re: sort with special order

Steve Bertrand wrote:
> Jo for lists and groups wrote:
>> How about this? Jo
> 
>> #!/usr/bin/perl
>>
>> use strict;
>> use warnings;
>>
>> my @list = qw/dog is a there/;
>> my @sortOrder = (3,1,2,0);
>> my @sorted;
>> foreach (@sortOrder) { push(@sorted,$list[$_]); }
>>
>> print "@sorted";
>> exit;
> 
> ...or this:
> 
> #!/usr/bin/perl
> use strict;
> use warnings;
> 
> my @list = map { qw(dog is a there)[$_]; } qw(3 1 2 0);
> print "@list";

Of course, it would likely be required to have the data in arrays first,
 so this is likely more feasible:

my @list  = qw (dog is a there);
my @order = qw (3 1 2 0);

@list = map { $list[$_]; } @order;

print "@list";

smime.p7s
Description: S/MIME Cryptographic Signature