Re: Sorting an array by another array


Welcome to the Monastery
	PerlMonks

Re: Sorting an array by another array

by clintp (Curate)

on Dec 05, 2001 at 00:16 UTC ( [id://129435]=note: print w/replies, xml )

Need Help??

in reply to Sorting an array by another array

Similar to Masem's approach, but simpler (I think) and debugged.

@to_be_sorted=qw( cat bird dog tiger puma mouse );
@order=qw( mouse cat dog lion elephant );

%order=();
for($_=0; $_<@order; $_++) { $order{$order[$_]}=$_; }

@sorted=sort {
        $order{$a}=@order unless exists $order{$a};
        $order{$b}=@order unless exists $order{$b};
        $order{$a}<=>$order{$b}
         } @to_be_sorted;
[download]

Enjoy!