handle some edge cases and merge the two awk invocations - annna - Annna the nice friendly bot.
HTML git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/annna/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
---
DIR commit 6b492185fa1670b4208bad4530428eba11d2ce95
DIR parent 289cc398a0f12633630239246ed6c134372ce8a1
HTML Author: Josuah Demangeon <mail@josuah.net>
Date: Tue, 9 Feb 2021 22:13:40 +0100
handle some edge cases and merge the two awk invocations
The line "#_E_#D,G,Y,.. #.T_Ag5..." gathers "#_E_", "#D" and "#.T_Ag5"
Signed-off-by: Annna Robert-Houdin <annna@bitreich.org>
Diffstat:
M annna-start-services | 19 +++++++++----------
1 file changed, 9 insertions(+), 10 deletions(-)
---
DIR diff --git a/annna-start-services b/annna-start-services
@@ -706,16 +706,15 @@ annna_common() {
done
else
printf '%s' "$text" | awk -v taglimit="$printnhashtags" '
- $0 ~ /#/ && $0 !~ /#nospoil/ {
- for (i = 1; i <= NF; i++)
- if (match($i, /#[^ '"'"',?!$\001]*/))
- tags[j++] = substr($i, RSTART, RLENGTH)
- }
- END {
- for (tag in tags)
- if (k++ < taglimit)
- print tags[tag]
- }' | awk '!a[$0]++' | while read -r tag;
+ $0 !~ /#nospoil/ {
+ while (match($0, /#[^# "'\'',?!$\001]+/)) {
+ tag = substr($0, RSTART, RLENGTH)
+ $0 = substr($0, RSTART + RLENGTH)
+ sub(/[.]*$/, "", tag)
+ if (!uniq[tag]++ && taglimit-- > 0)
+ print tag
+ }
+ }' | while read -r tag;
do
if tagline="$(grep "${tag} " "${hashtagfile}")";
then