在 PL/Perl 中，你可以使用 spi_exec_query 函数来执行 SQL 查询，并且可以通过这种方式在不同的 PL/Perl 函数之间共享变量。下面是一个简单的例子：
# 创建一个连接级别的全局变量
our $global_variable;
# PL/Perl 函数1
CREATE OR REPLACE FUNCTION plperl_function1()
RETURNS VOID AS $$
BEGIN
-- 在函数1中设置全局变量的值
$global_variable = 'Hello from plperl_function1';
END;
$$ LANGUAGE plperl;
# PL/Perl 函数2
CREATE OR REPLACE FUNCTION plperl_function2()
RETURNS VOID AS $$
BEGIN
-- 在函数2中使用全局变量的值
IF $global_variable IS NOT NULL THEN
RAISE NOTICE 'Global Variable Value: %', $global_variable;
ELSE
RAISE NOTICE 'Global Variable is not set';
END IF;
END;
$$ LANGUAGE plperl;
在这个例子中，$global_variable 是一个连接级别的变量，可以在不同的 PL/Perl 函数之间共享。你可以在一个函数中设置它的值，然后在另一个函数中访问它。请注意，这种方式是连接级别的，不同的数据库连接之间不会共享这个变量。
请根据你的具体需求调整这个例子，并确保在使用全局变量时考虑并发访问的情况。
转载请注明出处：http://www.zyzy.cn/article/detail/8531/PostgreSQL