Shell Programming and Scripting

while(<DATA>){
	chomp;
	if($.==1){
		print $_,"\n";
		next;
	}
	my @tmp =split;
	my $key=$tmp[2]." ".$tmp[3];
	if(not exists $hash{$key}){
		$hash{$key}->{val}=$_;
		$hash{$key}->{min}=$tmp[4];
	}
	else{
		if($tmp[4] < $hash{$key}->{min}){
			$hash{$key}->{val}=$_;
		}
	}
}
foreach my $key(keys %hash){
	print $hash{$key}->{val},"\n";
}
__DATA__
Col1 Col2 Col3 Col4 Col5
0.85 0.07 Fre 42:86 25 
0.73 0.03 frp 21:10 28 
0.64 0.04 Fre 42:86 63 
0.47 0.08 nie 25:76 32
0.37 0.01 veb 00:71 26
0.63 0.48 Fre 42:86 55
0.65 0.32 frp 21:10 19
0.53 0.56 nie 25:76 52
0.32 0.43 veb 00:71 18

BEGIN {FS="\t"; keyfield=4; minfield=5; minvalue=999999999999 }
$0!="" {
	min[$keyfield]<1 { min[$keyfield]=minvalue  }
	$minfield<min[$keyfield]  { lines[$keyfield]=$0; min[$keyfield]=$minfield  }
          }
END {	
             for (id in lines) {
                		     print lines[id]
                	          }
        }

	min[$keyfield]<1 { min[$keyfield]=minvalue  }
  	                          ^ syntax error
                         $minfield<min[$keyfield]  { lines[$keyfield]=$0; min[$keyfield]=$minfield  }
                                	                       ^ syntax error

BEGIN {FS="\t"; keyfield=4; minfield=5; minvalue=999999999999 }
$0=="" {next}
min[$keyfield]<1 { min[$keyfield]=minvalue  }
$minfield<min[$keyfield]  { lines[$keyfield]=$0; min[$keyfield]=$minfield  }
          
END {	
             for (id in lines) {
                		     print lines[id]
                	          }
        }

awk ' NR>1 {if(a[$3]=="") a[$3]=$5;if(a[$3]>=$5) {a[$3]=$5; sa[$3]=$0;}}NR>1&&$NF>x{x=$NF;line=$0}END{for(i in sa){print sa[i]};printf "\n%s",line}' file
0.85 0.07 Fre 42:86 25
0.47 0.08 nie 25:76 32
0.65 0.32 frp 21:10 19
0.32 0.43 veb 00:71 18

0.47 0.08 nie 25:76 32