如何在 Postgres 中使用 plperl 解决“错误：被操作掩码捕获”

如何解决如何在 Postgres 中使用 plperl 解决“错误：被操作掩码捕获”

我在 Postgresql 数据库中有一个表，它使用 bytea 字段来存储浮点和双精度数组。我有一个使用 plpython3u 扩展名将列转换为双精度数组的函数。

CREATE FUNCTION data.bytea_to_double_array(byte_array BYTEA,num_bytes INTEGER)
  RETURNS DOUBLE PRECISION[]
AS $$

  if num_bytes == 8:
    data_format = 'd'
  elif num_bytes == 4:
    data_format = 'f'
  else:
    return None

  data = struct.unpack('<' + str(len(byte_array) // num_bytes ) + data_format,byte_array)
  
  return data
$$ LANGUAGE plpython3u;

我正在寻找使用 plperl 扩展的替代功能。我尝试了以下方法：

CREATE FUNCTION data.bytea_to_double_array(byte_array BYTEA,num_bytes INTEGER)
  RETURNS DOUBLE PRECISION[]
AS $$
   
  if($_[1] == 8){
    $data_format = 'd*';
  }elsif ($_[1] == 4){
    $data_format = 'f*';
  }else{
    RETURN None;
  }

  @data = unpack($data_format,$_[0]);
       
  RETURN @data;
$$ LANGUAGE plperl;

当我尝试构建函数时出现此错误：

错误：'unpack' 被第 11 行的操作掩码捕获。

任何想法如何纠正这个？