Help for this page

Select Code to Download


  1. or download this
      my %by;
  @by{ map $_->{num}, @$data } = 0 .. $#$data;

  @sorted_unique = @{$data}[ @by{ sort keys %by } ];
  2. or download this
      my %by = map{ $_->{num} => $_ } @$data;

  @sorted_unique = @by{sort keys %by};
  3. or download this
      @sorted_unique =
    @{{ map{ $_->{num} => $_ } @$d }}{ sort map $_->{num}, @$d };