Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: sorting/output

by dpuu (Chaplain)
on Dec 09, 2004 at 21:25 UTC ( #413690=note: print w/replies, xml ) Need Help??

in reply to sorting/output

I found the code a bit confusing, but I think what is happenning is that you are creating an array that maps a distance from the centre to a record -- but you don't account for the possibility of two records with the same distance.

The approach you probably want to use is to create a reshref for each record, and then sort those by distance. i.e.

while (<LINE>) { @fields = split; my $record = { ra => ..., prob => ..., dist => ..., }; push @records, $record; } sub by_distance { $a->{dist} <=> $b->{dist} } @records = sort by_distance @records;

You can then iterate ocver the records, and print them.

Opinions my own; statements of fact may be in error.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://413690]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2023-10-01 04:52 GMT
Find Nodes?
    Voting Booth?

    No recent polls found