Revisions to Remove lines from file up to a pattern, unless the pattern doesn't exist

edited body

edited Dec 24, 2015 at 14:09

59.4k
10
123
243

allor()( set -f; unset o z i m; OPTIND=1 IFS=" " op() while getopts :i:o:m: O && case $O$OPTARG in ([$z]*|m*[!0-9]*|[!imo]*) ! : ;; (o+) o= O=;; (o-) O= ;; esac||! o=${o+${o:-$i}} m=${m:-1} do eval "z=$z${O:-o #} $O=\$OPTARG"||exit done op "$@";[ -f "${i:?No input specified!}" ] ||i= exec < "${i:?Input is not a regular file!}" && shift $((OPTIND-1(${#O}+1)) ) && z=$( ! { { grep -m$m "$@" 2>&3 | >&4 sed -ne'$=;$s/^/ /p' } 3>&1| grep . >&2;} 4>&1 ) && set ${z:?No match found!} ${o:+'>"$o"'} && case $((m==$1))$o in (0"$i") ! : ;; (0*) <"$i" eval " cat $3 && ! :" ;; (1*) <<-i eval " cut -c2- $3" $( printf %s\\n $2;paste /dev/null -) i esac )

allor()( set -f; unset o z i m; OPTIND=1 IFS=" " op() while getopts :i:o:m: O && case $O$OPTARG in ([$z]*|m*[!0-9]*|[!imo]*) ! : ;; (o+) o= O=;; (o-) O= ;; esac||! o=${o+${o:-$i}} m=${m:-1} do eval "z=$z${O:-o #} $O=\$OPTARG"||exit done op "$@";[ -f "${i:?No input specified!}" ] ||i= exec < "${i:?Input is not a regular file!}" && shift $((OPTIND-1))  && z=$( ! { { grep -m$m "$@" 2>&3 | >&4 sed -ne'$=;$s/^/ /p' } 3>&1| grep . >&2;} 4>&1 ) && set ${z:?No match found!} ${o:+'>"$o"'} && case $((m==$1))$o in (0"$i") ! : ;; (0*) <"$i" eval " cat $3 && ! :" ;; (1*) <<-i eval " cut -c2- $3" $( printf %s\\n $2;paste /dev/null -) i esac )

allor()( set -f; unset o z i m; OPTIND=1 IFS=" " op() while getopts :i:o:m: O && case $O$OPTARG in ([$z]*|m*[!0-9]*|[!imo]*) ! : ;; (o+) o= O=;; (o-) O= ;; esac||! o=${o+${o:-$i}} m=${m:-1} do eval "z=$z${O:-o #} $O=\$OPTARG"||exit done op "$@";[ -f "${i:?No input specified!}" ] ||i= exec < "${i:?Input is not a regular file!}" && shift $((OPTIND-(${#O}+1))) && z=$( ! { { grep -m$m "$@" 2>&3 | >&4 sed -ne'$=;$s/^/ /p' } 3>&1| grep . >&2;} 4>&1 ) && set ${z:?No match found!} ${o:+'>"$o"'} && case $((m==$1))$o in (0"$i") ! : ;; (0*) <"$i" eval " cat $3 && ! :" ;; (1*) <<-i eval " cut -c2- $3" $( printf %s\\n $2;paste /dev/null -) i esac )

guess i broke searches for blank lines. this fixes it.

Source Link

edited Dec 24, 2015 at 11:27

mikeserv

59.4k
10
123
243

allor()(   set -f; unset o z i m; OPTIND=1 IFS=" " op()  op() while getopts :i:o:m: O &&   case $O$OPTARG in   ([$z]*|m*[!0-9]*|[!imo]*) ! : ;;   (o+) o= O=;; (o-) O= ;;   esac||! o=${o+${o:-$i}} m=${m:-1}   do eval "z=$z${O:-o #} $O=\$OPTARG"||exit   done   op "$@";[ -f "${i:?No input specified!}" ] || i= ||i=   exec < "${i:?Input is not a regular file!}"  &&   shift $((OPTIND-1))  && z=$(! { z=$( ! { { { grep -m$m "$@" 2>&3|  2>&3 |  >&4 sed '$!d;='  -ne'$=;$s/^/ >&4/p' } 3>&1 | } 3>&1| grep . >&2;} 4>&1 )  &&   set ${z:?No match found!}  ${o:+'>"$o"'}  &&   case $((m==$1))$o in  (0"$i") ! : ;;   (0*)  <"$i" eval " cat  $3  &&  ! :"  <"$i" ;;   (1*) <<-i eval " cut -c2- $3" $3"  <<-i  $( printf " %s\n" $2 &&  %s\\n paste$2;paste /dev/null -)  )   i   esac )

allor()( set -f; unset o z i m; OPTIND=1 IFS=" " op()  while getopts :i:o:m: O && case $O$OPTARG in ([$z]*|m*[!0-9]*|[!imo]*) ! : ;; (o+) o= O=;; (o-) O= ;; esac||! o=${o+${o:-$i}} m=${m:-1} do eval "z=$z${O:-o #} $O=\$OPTARG"||exit done op "$@";[ -f "${i:?No input specified!}" ] || i= exec < "${i:?Input is not a regular file!}" && shift $((OPTIND-1)) && z=$(! { { grep -m$m "$@" 2>&3|  sed '$!d;='  >&4 } 3>&1 | grep . >&2;} 4>&1) && set ${z:?No match found!} ${o:+'>"$o"'} && case $((m==$1))$o in (0"$i") ! : ;; (0*) eval " cat  $3 && ! :"  <"$i" ;; (1*) eval " cut -c2- $3" <<-i  $( printf " %s\n" $2 &&  paste /dev/null - )  i esac )

allor()(   set -f; unset o z i m; OPTIND=1 IFS=" " op() while getopts :i:o:m: O &&   case $O$OPTARG in   ([$z]*|m*[!0-9]*|[!imo]*) ! : ;;   (o+) o= O=;; (o-) O= ;;   esac||! o=${o+${o:-$i}} m=${m:-1}   do eval "z=$z${O:-o #} $O=\$OPTARG"||exit   done   op "$@";[ -f "${i:?No input specified!}" ]  ||i=   exec < "${i:?Input is not a regular file!}"  &&   shift $((OPTIND-1))  && z=$( ! { { grep -m$m "$@" 2>&3 |  >&4 sed -ne'$=;$s/^/ /p' } 3>&1| grep . >&2;} 4>&1 )  &&   set ${z:?No match found!}  ${o:+'>"$o"'}  &&   case $((m==$1))$o in  (0"$i") ! : ;;   (0*)  <"$i" eval " cat $3  &&  ! :" ;;   (1*) <<-i eval " cut -c2- $3"  $( printf %s\\n $2;paste /dev/null -)    i   esac )

i dont understand what the internet has against tabs

Source Link

edited Dec 24, 2015 at 10:57

mikeserv

59.4k
10
123
243

allor()( set -f; unset  o z i m m; OPTIND=1  IFS=" ";"  op()  while getopts :i:o:m: O  &&   case $O$OPTARG in   ([$z]*|m*[!0-9]*|[!imo]*)  ! :  ;;   (o+) o= O=;; (o-) O= O= ;;   esac||! o=${o+${o:-$i}}  m=${m:-1}   do eval "z=$z${O:-o #} $O=\$OPTARG"||exit   done op "$@" && ["$@";[ -f "${i:?No input specified!}" ]  ||  i= exec < "${i:?Input is not a regular file!}"  && shift $((OPTIND-1))  && z=$(! { { grep -m$m "$@" 2>&3| sed '$!d;=' >&4 } 3>&1 | grep . >&2;} 4>&1)  && set ${z:?No match found!}  ${o:+'>"$o"'}  && case $((m==$1))$o in (0"$i") ! :  ;; (0*) eval "cat" cat $3 && ! :"  <"$i" ;; (1*) eval "cut"  cut -c2- $3"  <<-i $(  printf " %s\n" $2 &&   paste /dev/null - ) i esac )

allor()( set -f; unset  o z i m  OPTIND=1  IFS=" "; op() while getopts :i:o:m: O && case $O$OPTARG in ([$z]*|m*[!0-9]*|[!imo]*)  ! : ;; (o+) o= O=;; (o-) O= ;; esac||! o=${o+${o:-$i}} m=${m:-1} do eval "z=$z${O:-o #} $O=\$OPTARG"||exit done op "$@" && [ -f "${i:?No input specified!}" ]  || i= exec < "${i:?Input is not a regular file!}"  && shift $((OPTIND-1))  && z=$(! { { grep -m$m "$@" 2>&3| sed '$!d;=' >&4 } 3>&1 | grep . >&2;} 4>&1)  && set ${z:?No match found!}  ${o:+'>"$o"'}  && case $((m==$1))$o in (0"$i") ! : ;; (0*) eval "cat $3 && ! :" <"$i" ;; (1*) eval "cut -c2- $3" <<-i $( printf " %s\n" $2 && paste /dev/null - ) i esac )

allor()( set -f; unset o z i m; OPTIND=1 IFS=" "  op()  while getopts :i:o:m: O  &&   case $O$OPTARG in   ([$z]*|m*[!0-9]*|[!imo]*) ! :  ;;   (o+) o= O=;; (o-) O= ;;   esac||! o=${o+${o:-$i}}  m=${m:-1}   do eval "z=$z${O:-o #} $O=\$OPTARG"||exit   done op "$@";[ -f "${i:?No input specified!}" ] ||  i= exec < "${i:?Input is not a regular file!}" && shift $((OPTIND-1)) && z=$(! { { grep -m$m "$@" 2>&3| sed '$!d;=' >&4 } 3>&1 | grep . >&2;} 4>&1) && set ${z:?No match found!} ${o:+'>"$o"'} && case $((m==$1))$o in (0"$i") ! :  ;; (0*) eval " cat $3 && ! :"  <"$i" ;; (1*) eval "  cut -c2- $3"  <<-i $(  printf " %s\n" $2 &&   paste /dev/null - ) i esac )