# Desc: Searches for erotic phrases in text files in specified working directory
# Usage: find_erotica.sh [dir]
# Depends: GNU Find utils, GNU Parallel 20210822, GNU Grep, GNU Coreutils 8.32, bc
-# Version: 0.2.1
+# Version: 0.4.0
FIN_MAX=400;
cmd+=('-e' 'nipple');
cmd+=('-e' 'areola');
cmd+=('-e' 'breast');
+ cmd+=('-e' 'vulva');
cmd+=('-e' 'womanhood');
cmd+=('-e' 'manhood');
cmd+=('-e' 'his member');
cmd+=('-e' 'lips');
cmd+=('-e' 'lovers');
cmd+=('-e' 'hard-on');
- cmd+=('-e' 'whore');
cmd+=('-e' 'sex');
cmd+=('-e' 'throat');
cmd+=('-e' 'cleavage');
#printf "Found %d matching lines for phrases in %s.\n" "${#output[@]}" "$fin" 1>&2; # debug
}; # find phrase
main () {
- din="$1";
- if [[ ! -d "$din" ]]; then die "FATAL:Not a dir:${din}"; fi;
+ # Check args are dirs
+ local item;
+ for item in "$@"; do
+ if [[ ! -d "$item" ]]; then die "FATAL:Not a dir:${din}"; fi;
+ done;
- find "$din" -type f -name "*.txt" | shuf | head -n "$FIN_MAX" | \
+ find "$@" -type f -name "*.txt" | shuf | head -n "$FIN_MAX" | \
#parallel search_thread '{}' | less --RAW-CONTROL-CHARS -S;
parallel search_thread '{}';
};