Shell Programming and Scripting

#!/bin/awk -f
{
        for (i=1; i<= NF; i++)
                {A[FILENAME,FNR,i]=$i}
        B[FILENAME,FNR]=NF
}

END {
        for (f=1; f<length(ARGV); f++) {
                for (i=1; i<=length(B[ARGV[f],f]); i++) {       //here is the problem
                        print i
                        }
                }

}

for(Y in B) {
        split(Y, SUBSEP, ARR);
        // ARR[0] is now FILENAME, ARR[1] is now FNR
}

{
 for (i=1; i<=NF; i++) A[NR,i]=$i
 B[NR]=NF
}
FNR==1 {
 fc++
 fn[fc]=FILENAME
 start[fc]=NR
}
END {
 for (f=1; f<=fc; f++) {
  print fn[f],start[f]
  stop=((f+1) in start) ? start[f+1] : NR+1
  for (line=start[f]; line<stop; line++) {
   print B[line]
  }
 }
}

file1 1
3
3
3
file2 4
3
3
3