sort and print numbers

[mikawin]

I have a column in a table where the data looks like the following:

d=115/a=25/c=3
b=132/c=3/d=87
d=73/c=3/b=17/a=3/e=14
b=167/a=114/c=3/d=3
d=140/c=54/b=12
d=87/c=44/b=3
b=93/e=19/a=83/d=5
d=125/a=8/c=123/b=7
c=116/b=5/d=31
b=125/d=34/d=3
d=151/a=68/c=12/b=5/e=19

For each of the rows, I want to get the two highest values only, i.e for Row 1, get only d and a to be in the output, for Row 2, values for b and d and so on....

Thanks,
Mika

 

[KevinADC]

What have you tried so far to solve your programming requirements?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[mikawin]

Well, I have put them in a hash and tried to sort by value. However, I want to be able to get only the top two values for each row. And this has me stumped.
-Mika

 

[KevinADC]

Post your code, even if it does not work.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[mikawin]

Here you go,

I have put the data in a hash and called on a sub to do the sorting for me. How do I limit it to giving me only the first two elements of the sorted array?

#!/usr/bin/perl
.....
.....

%RowValues = (d=>73,c=>3,b=>17,a=>3,e=>14);

foreach $key(sort DescNum(keys(%RowValues)))
{
print "$RowValues{$key}\t\$key\n";
}

sub DescNum
{
$RowValues{$b} <=> $RowValues{$a};
}

 

[prex1]

($firstkey,$secondkey)=sort{$RowValues{$b}<=>$RowValues{$a}}keys%RowValues;

With this you get the keys of the two highest values. Remember to take care of the conditions where one or zero elements only are in the hash, if you can have that.

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[mikawin]

Thanks prex1. Your point about zero or 1 element is noted. However, for my current needs, the hash has been hard coded to contain 2 or more values.
-Mika

 

[KevinADC]

Your hard codeed hash should not work if the data is as you showed because there appears to be more than one possible value for the same hash key. Is the data file exactly like what you posted:

d=115/a=25/c=3
b=132/c=3/d=87
d=73/c=3/b=17/a=3/e=14
b=167/a=114/c=3/d=3
d=140/c=54/b=12
d=87/c=44/b=3
b=93/e=19/a=83/d=5
d=125/a=8/c=123/b=7
c=116/b=5/d=31
b=125/d=34/d=3
d=151/a=68/c=12/b=5/e=19

You would need a hash of hashes/arrays or an array of hashes/arrays (I think an array of arrays would be best) to store the data then sort it.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[mikawin]

KevinADC,

Point taken. Will make a note.
-Mika.

 

[rharsh]

I'm not sure about the rest of your program, but you might be able to do it without the hash.

while (<DATA>) {
	chomp;
	my @sorted =	map {$_->[0]} 
					sort {$b->[1] <=> $a->[1]} 
					map {/=(\d+)/; [$_, $1]} split('/', $_);
	print ( join('/', @sorted[0,1]), "\n" );
}
__DATA__
d=115/a=25/c=3
b=132/c=3/d=87
d=73/c=3/b=17/a=3/e=14
b=167/a=114/c=3/d=3
d=140/c=54/b=12
d=87/c=44/b=3
b=93/e=19/a=83/d=5
d=125/a=8/c=123/b=7
c=116/b=5/d=31
b=125/d=34/d=3
d=151/a=68/c=12/b=5/e=19

As stated before, if there were going to be less than 2 elements on each line, you would have to modify the code to account for that.

 

[KevinADC]

Maybe I misunderstood. If all you need is the two highest values from each line and not to sort the entire file also, my previous comment may not apply. I was under the impression (not sure why) that you wanted the two highest values for each line, then sort the entire file.

------------------------------------------
- Kevin, perl coder unexceptional!