UNIX for Dummies Questions & Answers

perl -ne 'print unless (/^Eat/ and not /apple/)' do.file
Drink a soda
Drink an apple juice
Eat an apple
Eat multiple apples

#!/usr/bin/env bash

# @(#) s2	Demonstrate remove multiple matches, xtcgrep.
# For xtcgrep (aka Grep.pm), see:
# https://raw.githubusercontent.com/jakobi/script-archive/master/cli.list.grep/Compact_pm/Grep.pm

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
LC_ALL=C ; LANG=C ; export LC_ALL LANG
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 perl xtcgrep

FILE=${1-data1}

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

pl " Expected output:"
cat expected-output.txt

# Remove lines that start with Eat  and does not contain apple
pl " Results:"
xtcgrep -v -b '^Eat and not apple' $FILE

exit

$ ./s2

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 5.0.8 (lenny, workstation) 
bash GNU bash 3.2.39
perl 5.10.0
xtcgrep (local) 1.4

-----
 Input data file data1:
Drink a soda
Eat a banana
Eat multiple bananas
Drink an apple juice
Eat an apple
Eat multiple apples
Fat fish

-----
 Expected output:
Drink a soda
Drink an apple juice
Eat an apple
Eat multiple apples
Fat fish

-----
 Results:
Drink a soda
Drink an apple juice
Eat an apple
Eat multiple apples
Fat fish