Re: sorting number

G'day dideod.yang,

What you have as "I want to print ..." is not really sorted. Perhaps you wrote COREA12 and COREA115 around the wrong way. If that's the case, you'd need to split each element into alphabetic and numeric parts but do a string comparison on both of them:

$ perl -E '
    say map "$_->[0]$_->[1] ",
        sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] }
        map [/(\D+)(\d+)/], qw{
            CORE1 CORE12 CORE8 CORE233
            COREA11 COREA12 COREA130 COREA115
        }
'
CORE1 CORE12 CORE233 CORE8 COREA11 COREA115 COREA12 COREA130
[download]

— Ken

Comment on Re: sorting number Select or Download Code

Replies are listed 'Best First'.
Re^2: sorting number by Eily (Monsignor) on Apr 09, 2019 at 07:58 UTC
My guess is that it was the CORE8 that was misplaced, and GrandFather's and Tux's solutions are the expected output. I suppose you meant to write `<=>` on the right side? Otherwise your code gives the same output as a plain sort	[reply] [d/l]
Re^3: sorting number by kcott (Archbishop) on Apr 09, 2019 at 08:24 UTC
"My guess is that it was the CORE8 that was misplaced, ..." Quite possibly - it's all guesswork. :-) "I suppose you meant to write `<=>` on the right side?" No, `cmp` was intended. I was aiming to indicate that `cmp` would give "11 115 12 130"; whereas `<=>` would give "11 12 115 130". It would appear I failed to communicate my intent. Thanks for pointing this out and giving me the opportunity to provide clarification. — Ken	[reply] [d/l] [select]
Re^2: sorting number by AnomalousMonk (Archbishop) on Apr 09, 2019 at 08:00 UTC
Perhaps you wrote COREA12 and COREA115 around the wrong way. But then the desired sort order just becomes the default lexi sort: `c:\@Work\Perl\monks>perl -wMstrict -le "my @sorted = sort qw(CORE1 CORE12 CORE8 CORE233 COREA11 COREA12 COREA130 COREA115) ; print qq{@sorted}; " CORE1 CORE12 CORE233 CORE8 COREA11 COREA115 COREA12 COREA130` [download] Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^3: sorting number by kcott (Archbishop) on Apr 09, 2019 at 08:29 UTC
See my response to ++Eily's post - he asked about the same thing. — Ken	[reply]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks