in reply to Sort problems

Schwartzian transform 
my @new_list = map { $_->[0] }
                 sort { $a->[1] cmp $b->[1] }
                   map { /(a|b)(\d+)_(\d+)\[(\d+)\]/ or die "Can't par
+se $_";
                         [$_, sprintf "$1%05d%05d%05d", $2, $3, $4]; 
                       } @split_list;

[download]

Make a sortable pair for each element of the array. Concatenate first letter with all the numbers in an element. Expand every number to 5 digits with leading zeros. Then sort the pairs alphabetically by second element and take original elements from sorted pairs

Replies are listed 'Best First'.
Re^2: Sort problems
by ikegami (Patriarch) on Dec 11, 2008 at 16:01 UTC

    More robust: 

    my @new_list = map  { $_->[0] }
               sort { $a->[1] cmp $b->[1] }
               map  { ( my $s = $_ ) =~ s/(\d+)/0$1/g; [ $_, $s ] }
               @split_list;

    [download]
[reply]
[d/l]
      Thanks, but still it didnt do it right. Take this list for example, the result: 
      buff1_100u[1] buff1_12p5u[0] buff1_25u[6] buff1_50u[4] buff2_100u[3] b
+uff2_12p5u[2] buff2_25u[3] buff2_50u[1]

      [download]
      buff1_100u1 cant come before buff1_25u6...
[reply]
[d/l]

        For some reason, I thought the leading zero would address that. What was I thinking? Moving on... 

                       map  { ( my $s = $_ ) =~ s/(\d+)/
                         sprintf('%010d%s', length($1), $1)
                      /eg;
                      [ $_, $s ] }
                    }

        [download]

        One could use pack instead of sprintf, but it won't work with unicode semantics. That's already a problem, but it'll be even worse in 5.12 because I believe unicode semantics will be used for all strings instead of just those internally encoded as UTF-8 (by default).

[reply]
[d/l]
[select]
Re^2: Sort problems
by erez_ez (Acolyte) on Dec 11, 2008 at 15:51 UTC
    first of all, Thanks! It looks like he cant parse certain words. One example: buff1_12p5u[0]
[reply]

In Section Seekers of Perl Wisdom