a bit reversed alphabetical sort 2

[2645275]

I am using:

@sorted = sort { $a cmp $b } @unsorted;

To sort table elements alphabetically, but when I sort things like:

z
zzz
aaaa
bbb

I become:

aaaa
bbb
z
zzz

Is there a way to make string length a higher priority than the sequence of letters in alphabet, and get result like:

z
bbb
zzz
aaaa

 

[KevinADC]

using the length() function and the numeric comparison operator "<=>" in the sort will work for the contrived example you posted:

[blue]@sorted[/blue] = [url=http://perldoc.perl.org/functions/sort.html][black][b]sort[/b][/black][/url] [red]{[/red] [url=http://perldoc.perl.org/functions/length.html][black][b]length[/b][/black][/url][red]([/red][blue]$a[/blue][red])[/red] <=> [black][b]length[/b][/black][red]([/red][blue]$b[/blue][red])[/red] [red]}[/red] [blue]@unsorted[/blue][red];[/red]

------------------------------------------
- Kevin, perl coder unexceptional!

 

[2645275]

Thank you for your help!

 

[MillerH]

And to complete your contrived example:

[blue]@sorted[/blue] = [url=http://perldoc.perl.org/functions/sort.html][black][b]sort[/b][/black][/url] [red]{[/red] [url=http://perldoc.perl.org/functions/length.html][black][b]length[/b][/black][/url][red]([/red][blue]$a[/blue][red])[/red] <=> [black][b]length[/b][/black][red]([/red][blue]$b[/blue][red])[/red] || [blue]$a[/blue] cmp [blue]$b[/blue] [red]}[/red] [blue]@unsorted[/blue][red];[/red]

- Miller