Rob Pengelly — Wed, 15 Mar 2000 14:18:00 +0000

@arr = sort {$b <=> $a} @arr;

------------------
Termites eat through wood two times faster when listening to rock music.

dave123 — Wed, 15 Mar 2000 05:47:00 +0000

Do you know how I can modify the code to handle the sorting of numeric values above 9?

Orpheus — Wed, 15 Mar 2000 00:15:00 +0000

Robp Would you be willing to help me out with my web site? i.e. make scripts and tutorials. I've seen a ton of your postings around the forum and you seem to be as knowledgable (if not more) about perl as me.

Want to help out?
email me brandony2ok@hotmail.com (nice email isn't it

Orpheus — Wed, 15 Mar 2000 00:04:00 +0000

Robp That would work fine but what if he's going to have more than 9 entries into the database?

Remember sort will work but it will only sort by the first number of every line.

So if he had 1 15 25 12 it would sort it as
1 15 12 25... and thats not good

Rob Pengelly — Tue, 14 Mar 2000 23:31:00 +0000

So if it had

That doesn't seem hard, just try:

code:

open(IN,"<IN.txt");
@arr = <IN>;
close(IN)

@arr = sort @arr;
@arr = reverse @arr;

open(IN,">IN.txt");
print IN @arr;
close(IN);
[/code]


------------------
Termites eat through wood two times faster when listening to rock music.

[This message has been edited by robp (edited 14 March 2000).]

Orpheus — Tue, 14 Mar 2000 21:53:00 +0000

I believe I have something for you.

code:

for my $x (0..scalar(@array)) {
   $id[$x] .= "|" . $rest[$x];
}

@sorted =
map { join "|", @$_ }
sort { $b->[1] <=> $a->[1] }
map { [ split /\|/ ] }
@array; 
[/code]

you may have to change the code around a little but you get the ideas....