sort problem

[nutshell]

Is there an easier way to convert the follow bit of Perl code over to PHP?

Perl:

@arr1 = sort {
  $a->{cat} cmp $b->{cat} or
  $a->{name} cmp $b->{name} or
  $a->{rating} cmp $b->{rating}
} @arr1;

PHP:

usort( $arr1, create_function('$a,$b','return ( strcmp($a[cat],$b[cat]) ? strcmp($a[cat],$b[cat]) : ( strcmp($a[name],$b[name]) ? strcmp($a[name],$b[name]) : ( strcmp($a[rating],$b[rating]) ? strcmp($a[rating],$b[rating]) : -1 )));') );

Thanks for any help possible 🙂

[nutshell]

No one wants to help?:eek:

[tsinka]

I don't think that there is an easier way. The following will make the code a little bit shorter but is still the same:

usort( $arr1, create_function('$a,$b','return  ($ret = strcmp($a[cat],$b[cat])) ? $ret : ($ret = strcmp($a[name],$b[name])) ? $ret :  ($ret = strcmp($a[rating],$b[rating])) ? $ret : -1 ;'));

[tsinka]

Hi,

the following code gave me the same result:

usort( $arr1, create_function('$a,$b','return  ($ret=(strcmp(implode($a),implode($b)))) ? $ret : -1;'));

[tsinka]

My last post was wrong,

it only works if your array only contains these three keys.

usort( $arr1, create_function('$a,$b','return  ($ret= (strcmp($a[cat].$a[name].$a[rating],$b[cat].$b[name].$b[rating]))) ? $ret : -1;'));

[nutshell]

Oh well. I'll just stick with what I've already got.

[Weedpacket]

(Saving one-and-a-half calls to strcmp on average...)

function compare_fields($a,$b)
{ if($t = strcmp($a['cat'],$b['cat'])) return $t;
  if($t = strcmp($a['name'],$b['name'])) return $t;
  return strcmp($a['rating'],$b['rating']);
}


usort($arr1, 'compare_fields');

[man]usort[/man] is your friend. Especially if you don't want to use [man]array_multisort[/man].