Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re^4: Sorting files you Have read

by GrandFather (Sage)
on Nov 16, 2006 at 23:07 UTC ( #584629=note: print w/replies, xml ) Need Help??

in reply to Re^3: Sorting files you Have read
in thread Sorting files you Have read

If you find yourself "uniquifying" keys for a hash you should probably be using an array. Consider:

use strict; use warnings; use constant KEY => 1; my @sort_data; while (my $record = <DATA>) { my $key = (split(/,/, $record))[KEY]; push @sort_data, [$record, $key]; } foreach my $pair (sort {$a->[1] cmp $b->[1]} @sort_data) { print "$pair->[0]"; }

using the same data as in previous samples prints:

BUT, It runs with no errors, but nothing prints. I tried your code, and it seems quite simple, hence, efective. At the moment, due to the small file size, sort time is unimportant. At some point, when I get to that stage, the sorted data will be reuse +d.

DWIM is Perl's answer to Gödel

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://584629]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2017-09-24 16:02 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (274 votes). Check out past polls.