From 51f3f8450b12a1f628a8c957ac30934540c5c826 Mon Sep 17 00:00:00 2001 From: Steven Baltakatei Sandoval Date: Wed, 9 Apr 2025 09:15:11 +0000 Subject: [PATCH 1/1] feat(unitproc/find_erotica.sh):Store script for finding erotica --- unitproc/find_erotica.sh | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100755 unitproc/find_erotica.sh 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; -- 2.39.5