Naming variables c1 .. c10 suggests you need an array.
To find a maximum, you can use List::Util.
The following code returns "$chr $begin $end $class" if the class has the maximal total, or 'undefined' instead of the class number if there are more classes having the same maximum. Tweak it to serve your needs:
#!/usr/bin/perl
use warnings;
use strict;
use List::Util qw/max/;
<>; # skip header
for my $line (<>){
my ($chr, $nr, $begin, $end, @values) = split ' ', $line;
my %total;
while (@values) {
my $class = shift @values;
my $total = shift @values;
$total{$class} = $total;
}
my $max = max values %total;
my @maxes = grep $total{$_} == $max, keys %total;
if (@maxes == 1) {
print "$chr $begin $end $maxes[0]\n";
} else {
print "$chr $begin $end undefined\n";
}
}
Updated code.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|