feat(unitproc/find_erotica.sh):Store script for finding erotica

diff --git a/unitproc/find_erotica.sh b/unitproc/find_erotica.sh
new file mode 100755 (executable)
index 0000000..bed0970
--- /dev/null
+++ b/unitproc/find_erotica.sh
@@ -0,0 +1,15 @@
+#!/bin/bash
+# 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
+# Version: 0.0.1
+
+find "$1" -type f -name "*.txt" | \
+    shuf | head -n400 | \
+    parallel grep -HEin -C256 -- 'nipple\|womanhood\|manhood\|his\ member\|slit\|pussy\|vagina\|cock\|shaft\|blood\|\ lust\|tongue\|neck\|voyeur\|ecstacy\|tingle\|orgasm\|lips' | \
+    grep -i -C128 -- 'handsome\|gorgeous\|beautiful\|bewitching\|seductive\|lusty\|comely\|stunning\|elegant\|exquisite\|luxurious\|ravishing\|magnificent\|lovely\|sexy\|sweet\|sexiest\|sensual\|arousing\|warm\|moist' | \
+    grep -i -C64 -- 'love\|nuzzle\|pleasure\|hot\|make\ love\|sex\|fuck\|arouse\|quiver' | \
+    grep -i -C32 -- 'kiss\|breast\|tits\|manhood\|vagina' | \
+    grep -i -C16 -- 'nipple\|womanhood\|manhood\|slit\|pussy\|vagina\|cock\|shaft\|\ lust\|voyeur\|ecstacy\|tingle\|orgasm\|gorgeous\|bewitching\|seductive\|lusty\|stunning\|ravishing\|lovely\|sexy\|sweet\|sexiest\|sensual\|arousing\|moist\|love\|nuzzle\|pleasure\|make\ love\|sex\|fuck\|arouse\|kiss\|breast\|tits\|manhood\|vagina\|lips' | \
+    grep -Ei -C12 --color=always -- '( his| her) .{,48}my (throat|breasts|pussy|tits|nipple|womanhood|cock|manhood|dick|cunt)' | \
+    grep -v -- '-$' | less -S;