[SOLVED] Perl to find max and min values

eminempark · 01-08-2013, 08:12 PM

I need a perl script that can print the maximum value and the minimum value from a text file called "one.txt".
For example:

Code:

#ID Temperature
1 25
2 34
3 35
4 23
5 24
:
:
3000 24

The output should show:

Code:

Max temperature is:ID 2 Temperature 35
Min temperature is:ID 3 Temperature 23

I know there is a lot of perl script that posted before to find max and min value. But mostly they are in single column. Anyone can help?

tshikose · 01-09-2013, 04:45 AM

Code:

while (<>) {
  ($id, $temp) = /(\d+)\s+(\d+)/;
  ($min_id, $min_temp) = ($id, $temp) if ($temp < $min_temp or ! defined $min_temp);
  ($max_id, $max_temp) = ($id, $temp) if ($temp > $max_temp or ! defined $max_temp);
}
print "Max temperature is:ID $max_id Temperature $max_temp\n";
print "Min temperature is:ID $min_id Temperature $min_temp\n";