Shell Programming and Scripting

BEGIN { A["FRR1"]=0.11; A["FRR4"]=0.13 }

A[$1] {
        V=substr($0, 24, 5);
        V += A[$1]
        $0=substr($0, 0, 23) sprintf("%5s", V) substr($0, 29);
}
1

awk -f addfr.awk data > data.out

sezim@localhost#cat gauss.awk
awk '
  {
    for(i=1;i<=NF;i++)                                    # for every field on every line
      if($i~/[A-Z]{5}[0-9]$/){                            # if a field contains a station number
        getline p<f                                       # then get the next noise correction
        split(p,N)                                        # split the fields of the noise correction into array N
        sub($(i+1)+0,sprintf("%.3f",$(i+1)+N[2]),$(i+1))  # substitute the numerical value in the next field with the modified value
      }
  }
  1                                                       # print line
' f=noisedata                                             # set variable f to noise file
sezim@localhost#awk -f gauss.awk mydata
awk: gauss.awk:1: awk '
awk: gauss.awk:1:     ^ invalid char ''' in expression