in reply to Re: sort != sort
in thread sort != sort
Works perfect.my @bucket = (); while($#Notes >= 0) { my $n = shift @Notes; push @{$bucket[$n->{terms}-1]},$n; } #Need 1D array back: while($#bucket >= 0) { my $b = pop @bucket; push @Notes, shift @$b while ($#{$b} >= 0); }
|
|---|