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

Re: Sorting Question

by Eimi Metamorphoumai (Deacon)
on Oct 04, 2004 at 18:56 UTC ( #396339=note: print w/replies, xml ) Need Help??

in reply to Sorting Question

Well, the code provided does no sorting. What is it you want it to do?

If you want it to basically do what it's doing, but return the output in sorted order, this should work.

my $editlist = $FORM{'list'}; open(FILE, "$datadir/$editlist.txt") or error_message("Can't find data file - $datadir/$editlist.txt."); my $ccc = 0; my @out; while (<FILE>){ my ($two, $one, $nochop) = split(/,/); if ($one =~ /.*\@.*\..*/) { push @out, "$two,$one\n"; $ccc++; } } close(FILE); print sort @out;
Otherwise, you'll have to be a bit clearer about what you're expecting. I made a few incidental changes, reading the file in one line at a time instead of all at once, etc, but they're just for style. The heart of it is, instead of outputting one at a time, push them into an array you can sort and output. If that's what you want to do.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (1)
As of 2021-05-09 22:25 GMT
Find Nodes?
    Voting Booth?
    Perl 7 will be out ...

    Results (102 votes). Check out past polls.