in reply to Sorting Alphanumeric Arrays

my @old=("99B","99","99A","100A","100","101","88");
print sort{ $^W=0; $a <=> $b or $a cmp $b } @old;
88 99 99A 99B 100 100A 101

[download]

Of course, you can tart that up with a GRT or ST for efficiency if the size of your dataset warrents it.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
The "good enough" maybe good enough for the now, and perfection maybe unobtainable, but that should not preclude us from striving for perfection, when time, circumstance or desire allow.

Replies are listed 'Best First'.
Re^2: Sorting Alphanumeric Arrays
by salva (Canon) on Jun 13, 2005 at 20:26 UTC
    GRT or ST are not the fastest ways to sort in perl anymore: 
    use Sort::Key::Maker sort_int_str =>
   sub { int $_, $_ }, qw(int str);

my @sorted = sort_int_str @old;

    [download]

    updated: using a regular expresion like /(\d+)(.*)/ to extract the keys was slow!

[reply]
[d/l]
[select]
      GRT or ST are not the fastest ways to sort in perl anymore:

      Bold claim, but in my tests a simple sort wins from 10 to 1000+ data items, with a GRT taking over from 10,000 upto 1 million data items: 

      P:\test>466286 -N=10
        Rate S::M  GRT sort
S::M 15958/s   -- -22% -60%
GRT  20443/s  28%   -- -49%
sort 39790/s 149%  95%   --

P:\test>466286 -N=100
       Rate S::M  GRT sort
S::M 1814/s   -- -17% -40%
GRT  2173/s  20%   -- -28%
sort 3024/s  67%  39%   --

P:\test>466286 -N=1000
      Rate S::M  GRT sort
S::M 157/s   --  -5% -21%
GRT  166/s   6%   -- -17%
sort 200/s  27%  20%   --

P:\test>466286 -N=10000
       Rate S::M sort  GRT
S::M 13.2/s   --  -2%  -3%
sort 13.5/s   2%   --  -0%
GRT  13.6/s   3%   0%   --

P:\test>466286 -N=100000
        Rate sort S::M  GRT
sort 0.938/s   --  -7% -11%
S::M  1.01/s   7%   --  -4%
GRT   1.05/s  12%   4%   --

P:\test>466286 -N=1000000
            (warning: too few iterations for a reliable count)

            (warning: too few iterations for a reliable count)

            (warning: too few iterations for a reliable count)

     s/iter sort S::M  GRT
sort   13.8   --  -8% -22%
S::M   12.7   9%   -- -16%
GRT    10.7  29%  19%   --

      [download]

      Benchmark

      Read more... (1130 Bytes)

      Also, I got make test failures when building?

      Read more... (2 kB)
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
      "Science is about questioning the status quo. Questioning authority".
      The "good enough" maybe good enough for the now, and perfection maybe unobtainable, but that should not preclude us from striving for perfection, when time, circumstance or desire allow.
[reply]
[d/l]
[select]
        oops... the problem was using a regular expresion to extract the keys, try 
        use Sort::Key::Maker sort_num_str =>
    sub { int($_), $_ }, qw(int str);

        [download]
        this way I got... 
        salva@cabo:/tmp$ perl /tmp/skm.pl 100
          Rate     GRT    sort S::K::M
GRT      945/s      --     -2%    -26%
sort     967/s      2%      --    -25%
S::K::M 1282/s     36%     33%      --
salva@cabo:/tmp$ perl /tmp/skm.pl 1000
          Rate    sort     GRT S::K::M
sort    61.0/s      --    -20%    -40%
GRT     75.8/s     24%      --    -25%
S::K::M  101/s     66%     34%      --
salva@cabo:/tmp$ perl /tmp/skm.pl 100000
        s/iter    sort     GRT S::K::M
sort      3.38      --    -43%    -49%
GRT       1.92     76%      --    -10%
S::K::M   1.73     96%     11%      --

        [download]

        update: benchmark results were wrong!

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom