당신은 글로벌 해시를 사용할 수 있습니다%_shared현재 세션의 수명을 요구하는 함수 간의 코드 참조를 포함한 데이터를 저장하려면

공유 데이터에 대한 간단한 예는 다음과 같습니다.

함수 생성 또는 교체 set_var (이름 텍스트, val 텍스트) 텍스트를 $$로 반환합니다.
    if ($ _shared $ _ [0] = $ _ [1]) 
        'OK'를 반환합니다.
     또 다른 
        return "공유 변수 $ _ [0]까지 $ _ [1]을 설정할 수 없습니다.";

코드 참조를 사용하는 약간 더 복잡한 예가 있습니다.

function myfuncs ()를 만들거나 바꾸십시오
    $ _shared myquote = sub 
        내 $ arg = shift;
        $ arg = ~ s/([ '\\])/\\ $ 1/g;
        " '$ arg'"를 반환합니다.
    ;
$$ 언어 plperl;

myfuncs ()를 선택하십시오. / * 함수 초기화 */

/ * 견적 함수를 사용하는 함수 설정 */

function use_quote (텍스트)를 $$로 반환합니다
    내 $ text_to_quote = shift;
    내 $ qfunc = $ _shared myquote;
    return & $ qfunc ($ text_to_quote);
$$ 언어 plperl;

(위를 One-Liner로 대체 할 수 있습니다return $ _shared myquote- ($ _ [0]);가독성을 희생하여.)

보안상의 이유로, PL/PERL은 해당 역할에 대한 별도의 PERL 통역사에서 하나의 SQL 역할에 의해 호출 된 함수를 실행합니다. 이렇게하면 한 사용자가 다른 사용자의 PL/PERL 기능의 동작으로 우연히 또는 악의적 인 간섭을 방지합니다. 그러한 통역사는 각각의 자체 가치가%_shared변수 및 기타 글로벌 상태. 따라서 두 개의 pl/perl 함수는 동일한 값의를 공유합니다.%_shared동일한 SQL 역할에 의해 실행되는 경우에만. 단일 세션이 여러 SQL 역할에서 코드를 실행하는 응용 프로그램에서Security Definer기능, 사용역할 설정등) pl/perl 함수가 데이터를 통해 데이터를 공유 할 수 있도록 명시적인 조치를 취해야 할 수도 있습니다.%_shared. 그렇게하려면 통신 해야하는 기능이 동일한 사용자가 소유하고 있는지 확인하고 표시하십시오Security Definer. 물론 그러한 기능은 의도하지 않은 일을하는 데 익숙하지 않도록주의해야합니다.