From scastle@sced.esoc.esa.de

  @​new = sort {
  ($b =~ /=(\d+)/)[0] <=> ($a =~ /=(\d+)/)[0]
  ||
  uc($a) cmp uc($b)
  } @​old;

should have '/g' as below :-

  ($b =~ /=(\d+)/g)[0] <=> ($a =~ /=(\d+)/g)[0]

if not the match returns true/false not the required integer.

Hope this helps.

Simon Castle.

From [Unknown Contact. See original ticket]

Simon Castle x2087 <scastle@​sced.esoc.esa.de> wrote

as fare as i can tell the following example from perlfunc sort :-

             @​new = sort \{
                 \($b =~ /=\(\\d\+\)/\)\[0\] \<=> \($a =~ /=\(\\d\+\)/\)\[0\]
                                     ||
                             uc\($a\)  cmp  uc\($b\)
             \} @&#8203;old;

should have '/g' as below :-

                 \($b =~ /=\(\\d\+\)/g\)\[0\] \<=> \($a =~ /=\(\\d\+\)/g\)\[0\]

if not the match returns true/false not the required integer.

No it doesn't. Did you actually try the example?

Read up in perlop about the different results which are returned by m//
in scalar and in list context.

Mike Guy