问如何在bash (连接行)中查询LibreOffice主题词表的文本文件版本

EN

v=nine
sed -n ':a;/^'"${v}"'|/{:b;n;/^[^(]/ba;s/^[^|]*|\| ([^)]*)//g;y/|/\n/;p;bb}' file

v=nine # set variable v to `nine`
sed -n ':a # turn off implicit printing and set goto label a
        /^'"${v}"'|/{ # match a line beginning with variable v
          :b # set goto label b
          n # fetch next line (do not print see option -n)
          /^[^(]/ba # goto label a if line does not begin (
          s/^[^|]*|\| ([^)]*)//g # remove first field and parens
          y/|/\n/ # translate | to newline for entire line
          p # print the result
          bb # goto label b
        }' file

$ cat script.sed
N
{
    /\(/ {
        /9/!s/[^|]*\|//
        s/\n/ /
        {
            /[^|]*\|(9\|)/ { 
                s//\1/
                s/([^|]*)\|/\1\n/g
                s/\([^)]*\)//
                s/\([^)]*\)//g
                p
            }
        }
    }
}

$ sed -Enf script.sed input_file
nine
9
ix
cardinal
9
IX
niner
Nina from Carolina
ennead
digit
figure
baseball club
ball club
club
baseball team

#! /usr/bin/awk -f

# This block is executed BEFORE input file treatment.
BEGIN {
    # Field Separator
    FS = "|"
}

# The next blocks are executed for each input file line only if the condition in front of the block is true

# '$1' is the first field/column. Remember, field separator in the pipe (|)
$1 == KEY {
    # Key found, flag it
    flag  = 1
    # Associated words init
    words = ""
    # Do not check the next blocks conditions, process the next line of the input file
    next
}

# If the flag is 1 and the line begins with an open parenthesis.
flag == 1 && $0 ~ /^\(/ {
    # Association found
    # For all associations (field)
    # The line treatment starts with the second field
    idx = 2
    # NF is the Number of Fields in the current line
    while (idx <= NF) {
        # get the current field word (idx in the field number, $ids it is its value)
        word = $idx
        # remove term in parenthesis
        # (in fact, replace all characters after the ' (' token by an empty string)
        gsub(/ \(.*$/, "", word)
        # save it (add it in 'words' string with a coma as separator)
        words = words "," word
        # next field
        idx += 1
    }
}

# If the flag is 1 and the line NOT begins with an open parenthesis.
#  It's the end of KEY treatment 
flag == 1 && $0 !~ /^\(/ {
    # End of association
    flag = 0
    # Print Key and words
    if (words != "") {
        print KEY words
    }
    # Reinit words
    words = ""
}

# This block is executed AFTER input file treatment.
END {
    # Special case, last word in thesaurus
    # Print Key and words
    if (words != "") {
        print KEY words
    }
}

chmod 755 ./search.awk

./search.awk -v KEY="nine" lo

nine,9,ix,cardinal,9,IX,niner,Nina from Carolina,ennead,digit,figure,baseball club,ball club,club,baseball team