Re: Efficiently sorting array by non-alpha strings

[BrowserUk]

This would do it and is easier to extend than the multiple ifs or an if/else cascade.

#!/usr/bin/perl

use strict;
use Data::Dumper;

my @advocates = (
    { fld_title => 'Rec1', fld_type => 'National', },
    { fld_title => 'Rec2', fld_type => 'State', },
    { fld_title => 'Rec3', fld_type => 'Local',
    },

);
my $order = "\0local\0state\0national\0";

sub by_locale {
    index( $order, "\0" . lc( $a->{ fld_type } ) . "\0" )
    <=>
    index( $order, "\0" . lc( $b->{ fld_type } ) . "\0" )
}

my @sorted_advocates = sort by_locale @advocates;
warn Dumper("unsorted_advocates", \@advocates);
warn Dumper("sorted_advocates", \@sorted_advocates);

[knowmad]

I added your solution to my benchmark and it comes in side-by-side with my original sort solution. However, yours is ++ for elegance and extendability. Thanks for the input!

-Wm