Shell Programming and Scripting

BEGIN {
    RS = ","
    max_size = 100*2^20
}

function open_file() {
    len = 0
    fn = "file" ++i
    printf("v=[") > fn
}

function close_file() {
    printf("];") > fn
    close(fn)
}

NR == 1 {
    open_file()
}

len >= max_size {
    close_file()
    open_file()
}

{
    s = (len?",":"") $0
    printf("%s", s) > fn
    len += length(s)
}

END {
   close_file()
}

awk -f commasplit.awk  datafile

gawk 'BEGIN {
          RS = ","
          "ls -l " ARGV[ARGC-1] | getline
          s = int( $6 / 20 )
      }
      n==0 {
          if (f) {
              print "];" > f
              close(f)
          }
          f = sprintf("outfile.%03d", ++c)
          printf "v=[" $1 > f
          n = 3 + length
          next
      }
      {
          printf "," $1 > f
          n = n + length + 1
          if(n > s){
              n = 0
          }
      }
      END {
          print "];" > f
      }' infile