Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Re: Re^3: Sorting on different fields

by mkmcconn (Chaplain)
on Jul 23, 2002 at 17:17 UTC ( #184499=note: print w/replies, xml ) Need Help??


in reply to Re: Re^3: Sorting on different fields
in thread Sorting on different fields

You don't need the map function, rchou2. You took care of everything by using the for() loop. However, you did not split the data into fields.

Here's one way to do what you are asking, that borrows most of the syntax preferences from your example:

#!/usr/bin/perl -w use strict; rename 'tempfile.txt', 'tempfile.txt~'; # save a backup open TEMPFILE, "<tempfile.txt~" or die $!; my @data; my @newcolumn = qw(d e f); my $incr = 0; for my $line (<TEMPFILE>) { my @elements = split(/\s+/g, $line); # split the line on all w +hitespace push @elements, $newcolumn[$incr++]; # add a new column push @data, \@elements; # need to store as ref } close TEMPFILE; @data = sort { $$a[2] cmp $$b[2] || $$b[1] <=> $$a[1] } @data # or d +ie "can't sort"; $, = " " ; # separate output fields by a space open OUTFILE, ">tempfile.txt" or die $!; foreach my $item (@data){ print OUTFILE "@$item\n"; } close OUTFILE; __END__

mkmcconn

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2023-01-27 00:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?