Re: Sorting - lower to upper

[orderthruchaos]

Don't forget about the Schwartzian Transform:

my %hash = qw/John 1 Bob 1 xavier 1 alice 1/;

my @keys = map { tr/a-zA-Z/A-Za-z/; $_ }
           sort
           map { tr/a-zA-Z/A-Za-z/; $_ } keys %hash;

print "@keys\n";

Will give you

alice xavier Bob John

[merlyn]

Ditto what I said in •Re^2: Sorting - lower to upper. I guess I'm going to have to watch every node in this thread.

[orderthruchaos]

Taking merlyn's advice into account, I'll change my answer;-)

--from above--

Don't forget about the Schwartzian Transform:

my %hash = qw/John 1 Bob 1 xavier 1 alice 1/;

my @keys = map { (my $x = $_) =~ tr/a-zA-Z/A-Za-z/; $x }
           sort
           map { (my $x = $_) =~ tr/a-zA-Z/A-Za-z/; $x }
           keys %hash;

print "@keys\n";

Will give you

alice xavier Bob John

[orderthruchaos]

Sorry about that... this thread is growing too fast for me to keep up!