Re: Sorting - lower to upper

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";
[download]

Will give you

alice xavier Bob John
[download]

Comment on Re: Sorting - lower to upper Select or Download Code

Replies are listed 'Best First'.
•Re^2: Sorting - lower to upper by merlyn (Sage) on Jul 15, 2004 at 17:04 UTC
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. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re^3: Sorting - lower to upper by orderthruchaos (Scribe) on Jul 15, 2004 at 17:23 UTC
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";` [download] Will give you `alice xavier Bob John` [download]	[reply] [d/l] [select]
Re^3: Sorting - lower to upper by orderthruchaos (Scribe) on Jul 15, 2004 at 17:13 UTC
Sorry about that... this thread is growing too fast for me to keep up!	[reply]