UNIX for Beginners Questions & Answers

BEGIN{

FS = ","
print "NAME\tLOW\tHIGH\tAVERAGE"
a=0

}

{

if(a==0){
    a+=1
}

else{

    if(high[$3]<$4)
        high[$3] = $4

    else if (low[$3]>$4 || low[$3]==0)

        low[$3] = $4

        average[$3] += $4

        count[$3] += 1
}

}

END{

for(b in high){

average[b] = average[b]/count[b]
printf "%s\t%d\t%d\t%.2f\n",b, low[b], high[b], average[b]
}
}

#!/usr/bin/perl

print "NAME\tLOW\tHIGH\tAVERAGE\n";
$a=0;

if($a==0){
        $a+=1
}

elsif{
   
}

    

else{


if(high[$3]<$4)
        high[$3] = $4

    else if (low[$3]>$4 || low[$3]==0)

        low[$3] = $4

        average[$3] += $4

        count[$3] += 1
}

}

./a2p.exe t.awk > t.lis
Unrecognized character ' in file t.awk line 2--ignoring.   just remove the "awk" and tic marks I had them in there for convenience
Unrecognized character ' in file t.awk line 36--ignoring.
Please check my work on the 2 lines I've marked with "#???".  This needs looking at.
The operation I've selected may be wrong for the operand types.

awk '
   BEGIN{
     FS = ","; print "NAME\tLOW\tHIGH\tAVERAGE"; a=0;
   }
 # main   
 {
   if(a==0)
   {
     { a+=1}
   }
   else
   {
       if(high[$3]<$4)
       {
           high[$3] = $4
       }
       else 
       if (low[$3]>$4 || low[$3]==0)
       {
           low[$3] = $4
           average[$3] += $4
           count[$3] += 1
       } 
   }
 }  
 #end main  
 END {
     
     for(b in high)
     {
       average[b] = average[b]/count[b]
       printf ("%s\t%d\t%d\t%.2f\n",b, low[b], high[b], average[b])
     }
   }
  '

#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
			# this emulates #! processing on NIH machines.
			# (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
			# process any FOO=bar switches

$, = ' ';		# set output field separator
$\ = "\n";		# set output record separator

$FS = ',';
print "NAME\tLOW\tHIGH\tAVERAGE";
$a = 0;

# main   

while (<>) {
    chomp;	# strip record separator
    @Fld = split(/[,\n]/, $_, -1);
    print $_ if $awk;

    if ($a == 0) {
	{
	    $a += 1;
	}
    }
    else {
	if ($high{$Fld[(3)-1]} lt $Fld[(4)-1]) {	#???
	    $high{$Fld[(3)-1]} = $Fld[(4)-1];
	}
	elsif ($low{$Fld[(3)-1]} gt $Fld[(4)-1] || $low{$Fld[(3)-1]} == 0) {	#???
	    $low{$Fld[(3)-1]} = $Fld[(4)-1];
	    $average{$Fld[(3)-1]} += $Fld[(4)-1];
	    $count{$Fld[(3)-1]} += 1;
	}
    }

    #end main  
}

foreach $b (keys %high) {
    $average{$b} = $average{$b} / $count{$b};
    printf "%s\t%d\t%d\t%.2f\n", $b, $low{$b}, $high{$b}, $average{$b};
}