Shell Programming and Scripting

cat file
0     0     0     0
0     8     9     1
3     8     3     9
7     7     7     7

7     8     9     9

BEGIN { max=0
	print "The most expensive car is"
      }

$5>max { max=$5
	 result=$0
       }
END{print result}

{       for (count = 1; count <= nfields; count++)   
                        {
                $count>max { max=$count
                        }
                print max
                }

awk '{for (i=1;i<=NF;i++) {a[i]=(a[i]>$i)?a[i]:$i;s=(s>NF)?s:NF}}
END {for (i=1;i<=s;i++)printf a[i] "\t"}' infile

while(<DATA>){
  my @tmp=split;
  for(my $i=0;$i<=$#tmp;$i++){
    $hash{$i}=($tmp[$i]>=$hash{$i})?$tmp[$i]:$hash{$i};
  }
}
for my $key(sort {$a<=>$b} keys %hash){
  print $hash{$key}," ";
}
__DATA__
0     0     0     0
0     8     9     1
3     8     3     9
7     7     7     7