Shell Programming and Scripting

#!/usr/bin/env bash

# @(#) s3	Demonstrate multiple matches on a line, awk

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C awk

create_awk_args() {
  if [ $# -le 0 ]
  then
    pe " Nothing selected on command line, exit." >&2
    exit 1
  fi
  
  v1=$(
    p1='\<'
    p2='\>'
    for (( i=1;i<=$#;i++))
    do
      if [ $i -gt 1 ]
      then
        printf " && "
      fi
      printf "%s" "/$p1${!i}$p2/"
    done
  )
  db " Note: parameters are [$v1]"
}

FILE=data1

pl " Input data file $FILE:"
cat $FILE

pl " Results $*"
create_awk_args $*
awk '
'"$v1"'
' $FILE

exit 0

$ ./s3 3 10 11

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian GNU/Linux 5.0.8 (lenny, workstation) 
bash GNU bash 3.2.39
awk GNU Awk 3.1.5

-----
 Input data file data1:
431 kat1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
432 kat2 2 NA NA NA NA NA NA NA NA NA NA NA NA NA
433 KATe NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA
542 Kaed 2 NA NA NA NA NA NA NA NA NA NA NA NA NA
543 hkwuy NA NA NA NA 6 NA NA NA NA 11 NA NA NA NA
633 KAT1 NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA
990 Klip NA 3 NA NA 6 NA NA NA 10 111 NA NA NA NA

-----
 Results 3 10 11
431 kat1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
433 KATe NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA
633 KAT1 NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA

$ ./s3 111

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian GNU/Linux 5.0.8 (lenny, workstation) 
bash GNU bash 3.2.39
awk GNU Awk 3.1.5

-----
 Input data file data1:
431 kat1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
432 kat2 2 NA NA NA NA NA NA NA NA NA NA NA NA NA
433 KATe NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA
542 Kaed 2 NA NA NA NA NA NA NA NA NA NA NA NA NA
543 hkwuy NA NA NA NA 6 NA NA NA NA 11 NA NA NA NA
633 KAT1 NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA
990 Klip NA 3 NA NA 6 NA NA NA 10 111 NA NA NA NA

-----
 Results 111
990 Klip NA 3 NA NA 6 NA NA NA 10 111 NA NA NA NA

awk '

# float conversion (to avoid matching problem)
function i2f(val){
                      return sprintf("%05.2f",val)    
                 }

  NR==1{
         c = d = split(search,A)
         for( i = 1; i <= c; i++ ) search = i == 1? i2f(A[i]) : search "|" i2f(A[i])
       }
       {    
         c = d
         for( i = 3; i <= NF; i++ ){
                  
         if($i ~ /[[:digit:]]/){             
                                c = tolower(pattern_type) == "o" ? match(search,i2f($i))? --c : ++c : \
                                    tolower(pattern_type) == "m" ? match(search,i2f($i))? --c : c   : ""
                               }

         # We matched enough fields using multiple search option
         if(c == 0 && tolower(pattern_type) == "m")break

                                    }
         c = c == 0 ? 1 : 0 
        
       }c     

     ' search="3 6 10 11" pattern_type="o"   file

$ cat file
431 kat1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
432 kat2 2 NA NA NA NA NA NA NA NA NA NA NA NA NA
433 KATe NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA
542 Kaed 2 NA NA NA NA NA NA NA NA NA NA NA NA NA
543 hkwuy NA NA NA NA 6 NA NA NA NA 11 NA NA NA NA
633 KAT1 NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA

$ sh search.sh 
432 kat2 2 NA NA NA NA NA NA NA NA NA NA NA NA NA
542 Kaed 2 NA NA NA NA NA NA NA NA NA NA NA NA NA

$ sh search.sh 
431 kat1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
432 kat2 2 NA NA NA NA NA NA NA NA NA NA NA NA NA
542 Kaed 2 NA NA NA NA NA NA NA NA NA NA NA NA NA

$ sh search.sh 
433 KATe NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA
633 KAT1 NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA

$ sh search.sh 
431 kat1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
433 KATe NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA
633 KAT1 NA 3 NA NA 6 NA NA NA 10 11 NA NA NA NA