From: Steven Baltakatei Sandoval <baltakatei@gmail.com>
Date: Wed, 9 Apr 2025 09:15:11 +0000 (+0000)
Subject: feat(unitproc/find_erotica.sh):Store script for finding erotica
X-Git-Url: https://zdv2.bktei.com/gitweb/BK-2020-03.git/commitdiff_plain/51f3f8450b12a1f628a8c957ac30934540c5c826?ds=inline;hp=57131de02d1dcbc580112411ff132cbcf3d14179

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
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;