Shell Programming and Scripting

 
#!/bin/sh
find . -name '*.txt' | while read line
do
gawk -F '\t' '$2== "A" {print $1"\t" $3"\t" Mode($7,$8,$9,$10)"\t" }' $line
done >out.txt

func mode(list, sep,  n, a, i, h, m, v) {
  sep = sep ? sep : FS
  n = split(list, a, sep)
  while (++i <= n) {
    if (++h[a[i]] > m) {
      m = h[a[i]]
      v = a[i]
    }
  }
  return m > 1 ? v : "#N/A"
}

% cat file
32,45,56,32,32
32,45,56,30,92

% awk -F, '{ print mode($0) }
func mode(list, sep,  n, a, i, h, m, v) {
  sep = sep ? sep : FS
  n = split(list, a, sep)
  while (++i<= n) {
    if (++h[a[i]] > m) {
      m = h[a[i]]
      v = a[i]
    }
  }
  return m > 1 ? v : "#N/A"
}' file
32
#N/A

1,1,2,2

awk -F\, '{
   for (i=1; i<=NF; ++i)
       if (max <= ++x[$i])
          max = x[$i]
} END {
   for (i in x)
       if (x[i] == max)
          print i
}' file