Homework & Coursework Questions

I have to find the min and max on a specific column in a file after sending that column and one other to a output file but I keep getting a maximum of zero

below is what i have so far if anyone can give me advice on what i am doing wrong the help would be much appreciated

# ! /usr/bin/perl -w

$max=0;
open(INFILE, "horizon");
open(OUT, "> out1");
while(<INFILE>)
{
if ( $_ =~ /([0-9]+)\s+([0-9]+)\s+([0-9]+\.[0-9]+)\s+([0-9]+\.[0-9]+) / )
{
print "$1\t$2\t$3\t$4\n";
print OUT "$1\t$2\n";
$_=$1;
}
}
open(IN, "out1");
open(NUM, ">> out3");
while(<IN>)
{
$_=$1;
print NUM "$_\n";
if($_ > $max)
{
$max=$_;
}
}
print NUM " The max is $max\n";


SAIT Calgary AB Patricia Casto Advanced Linux

can you provide your sample input file

Hello, Welcome to the Unix and Linux forums. We have strict special homework rules.

Please review them and edit your post and also complete section 1-4 accordingly if you would like your questions to be answered.

Please also review the rules, which you agreed to when you registered, if you have not already done so.

And please use code tags. Here is a Video tutorial on how to use them

Thank You.

The UNIX and Linux Forums.