tsvector のテキスト表現には、特定の語彙素の出現リストが含まれています。
test=# select to_tsvector ( 'english', 'new bar in New York' );
to_tsvector
----------------------------
'bar':2 'new':1,4 'york':5
以下は、それに依存する関数の例です。テキスト パラメーターを受け取り、内部で ts_vector に変換しますが、ts_vector を受け取るように簡単に書き直すことができます。
CREATE OR REPLACE FUNCTION lexeme_occurrences (
IN _document text
, IN _word text
, IN _config regconfig
, OUT lexeme_count int
, OUT lexeme_positions int[]
) RETURNS RECORD
AS $$
DECLARE
_lexemes tsvector := to_tsvector ( _config, _document );
_searched_lexeme tsvector := strip ( to_tsvector ( _config, _word ) );
_occurences_pattern text := _searched_lexeme::text || ':([0-9,]+)';
_occurences_list text := substring ( _lexemes::text, _occurences_pattern );
BEGIN
SELECT
count ( a )
, array_agg ( a::int )
FROM regexp_split_to_table ( _occurences_list, ',' ) a
WHERE _searched_lexeme::text != '' -- preventing false positives
INTO
lexeme_count
, lexeme_positions;
RETURN;
END $$ LANGUAGE plpgsql;
使用例:
select * from lexeme_occurrences ( 'The Fat Rats', 'rat', 'english' );
lexeme_count | lexeme_positions
--------------+-----------------
1 | {3}
(1 row)