Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re^4: Sorting files you Have read

by GrandFather (Cardinal)
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


Comment on Re^4: Sorting files you Have read
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2014-08-22 05:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (147 votes), past polls