Shell Programming and Scripting

for aaaa 
    1111 1234
    2222 3434

for bbbb
    1111 3434.343
    2222 2343
for cccc
    3333 2343.343
    4444 89000
for dddd
    1111 5678.343
    2222 890.3

aaaa 2343.343
bbbb 34343.343
cccc 778.0
dddd 78993.000

aaaa 2343.343
bbbb 34343.343
cccc 778.0
dddd 78993.000

Hname frame capacity  Capacity(GB)
aaaa  1111   1234     7011.343(1234+3434+2343.343)
      2222   3434
bbbb  1111   3434.343  834343.
      2222   2343

Hname frame capacity Capacity(GB)
aaaa  1111  1234      7011.343
      2222  3434
bbbb  1111  3434.343  8120.343
      2222  2343
cccc  3333  2343.343 92121.343
      4444  89000
dddd  1111  5678.343 85561.643
      2222  890.3

awk 'BEGIN {
        # Set headings and initial column widths.
        cw[1] = length(h[1] = "Hname") + 1
        cw[2] = length(h[2] = "frame") + 1
        cw[3] = length(h[3] = "capacity") + 1
        cw[4] = length(h[4] = "Capacity(GB)")
}
$1 == "for" {
        # Set the key for immediately following lines, the order in which this
        # key should appear in the output, the number of frame/capacity entries
        # found, and adjust the width of column 1 if we get a longer entry.
        key = $2
        fc[key] = s[key] = 0
        order[++forcnt] = key
        if(length(key) >= cw[1]) cw[1] = length(key) + 1
        next
}
$1 in s {
        # Update the sum for a key for an entry found in the final section of
        # the input.
        s[$1] += $2
        next
}
$1 == "" {
        # Skip empty lines.
        next
}
{       # Set the frame and capacity value for lines related to the current
        # key, update the count of entries found, update the sum for the
        # current key, and adjust the widths of columns 2 and 3 if we get
        # longer entries.
        frame[key, fc[key]] = $1
        cap[key, fc[key]++] = $2
        s[key] += $2
        if(length($1) >= cw[2]) cw[2] = length($1) + 1
        if(length($2) >= cw[3]) cw[3] = length($2) + 1
}
END {   # Check for a longer column 4 value.
        for(i = 1; i <= forcnt; i++)
                if(length(sprintf("%.3f", s[order[i]])) > cw[4])
                        cw[4] = length(sprintf("%.3f", s[order[i]]))
        # Print the headings.
        printf("%-*s%-*s%-*s%*s\n", cw[1], h[1], cw[2], h[2], cw[3], h[3],
                cw[4], h[4])
        # Loop through the keys in the order in which they were read.
        for(i = 1; i <= forcnt; i++) {
                # Print the key, 1st frame, 1st capacity, and sum for this key.
                printf("%-*s%-*s%-*s%*.3f\n",
                        cw[1], order[i], cw[2], frame[order[i], 0],
                        cw[3], cap[order[i], 0], cw[4], s[order[i]])
                # Print any remaining frame and capacity values for this key.
                for(j = 1; j < fc[order[i]]; j++)
                        printf("%-*s%-*s%s\n", cw[1], "",
                                cw[2], frame[order[i], j],
                                cap[order[i], j])

        }
}' input_file

awk '
  $1=="for"{
    A[I=$2]
    next
  } 
  NF{
    if($1 in A){
      sub(ORS, T[$1]+$2 ORS, A[$1])
      printf "%s",$1 A[$1]
    } 
    else {
      A[I]=sprintf("%s\t%s\t%-11s\n",A[I],$1,$2)
      T[I]+=$2
    }
  }
' infile