将regexp_matches的结果检索为一行plperl

Question

所以，如果有这个字符串aassdd

这段代码：

regexp_matches('aassdd', 'a', 'g')

返回2个不同的行。

可以将所有匹配检索为一行吗？例如，当array类型为一行时，即上面的代码，需要的结果是：{a,a}

Answer 1

regexp_matches（）返回一个集而不是一个标量的事实是可以理解的，但仍然有点烦人。

我找到的唯一解决方法是这个有点难看的查询：

select array_agg(i)
from (
   select (regexp_matches('aassdd', 'a', 'g'))[1] i 
)  t

Answer 2

SELECT ARRAY(select array_to_string(regexp_matches('aassdd', 'a', 'g'),''));

Answer 3

如果regexp_matches（）将索引表的一列作为参数，还有一种方法：

SELECT rid, array_agg(number) 
FROM 
    (SELECT 
       rid, 
       (regexp_matches(column,'[0-9]+','g'))[1] as number 
    FROM table) t
GROUP BY rid

Answer 4

With plperl

如果你正在寻找一些有点高效的东西，

CREATE LANGUAGE plperl;

CREATE FUNCTION regexp_return_matches(text, text)
RETURNS text[]
AS $$
  my ( $input, $pattern ) = @_;
  $pattern = quotemeta($pattern);
  return [$input =~ m/($pattern)/g];
$$ LANGUAGE plperl;

SELECT regexp_return_matches('aassdd', 'a');
 regexp_return_matches 
-----------------------
 {a,a}
(1 row)