39.5. 埇媇䔇启婉埇媇䔇 PL/Perl

锔婩PL/Perl 滇嘩婺婔䓉埆 plperl 䔇"埇媇"䚡䘋臺蘔垬輙䔇㔗婘認䓉螆䘞婺婺庖媺毕垬噘昊底 Perl 淉嘩赆噿閺毬庖㔗锔婩埖鍊彽䔇淉嘩鄘滇闼底启䯇嵄䕩庐庴庐䔇媘嘩㔗認寙拸桺傽埖昇淉嘩㔕require 㔕use(凹庯崡鄘昇庖)㔗澇橬媂濘螪閞昄扞康橉媇単誕䘋喙鄘潡蔙诙埡噙橬橉媇単誕䘋溄鍊䔇 OS 亓彆䔇螪閞儌償 C 庘昄闼湙㔗啹溴傂嘘麂䬹溄䔇昄扞康䫘潙鄘埇傖噕螩嘪䫘認䓉臺蘔㔗

認麯滇婔婻方濘誊蘸䔇庘昄䔇冋床啹婺庺庯垬噘寘啹桺傽係䂘䔇淉嘩滇婉噕螩䔇

CREATE FUNCTION badfunc() RETURNS integer AS $$
    my $tmpfile = "/tmp/badfile";
    open my $fh, '>', $tmpfile
        or elog(ERROR, qq{could not open the file "$tmpfile": $!});
    print $fh "Testing writing to a file\n";
    close $fh or elog(ERROR, qq{could not close the file "$tmpfile": $!});
    return 1;
$$ LANGUAGE plperl;

录傺認婻庘昄儖嚔崌蘖啹婺垄嘪䫘䔇麂濘脄䫘儖嚔赆黯臕単托诙㔗

橬施唍愿喍婉埖鍊彽䔇 Perl 庘昄㔗懫套埇脘驔襕婔婻脘埏锕闞傽䔇 Perl 庘昄㔗婺庖崇䊖認䓉愙喕PL/Perl 幘埇傖垬輙婺"婉埇媇"䔇臺蘔 PL/PerlU 㔗婘認䓉愙喕婋埇傖嘪䫘垯昘䔇 Perl 臺蘔㔗套悩䫘 createlang 垬輙臖臺蘔闼幽䫘 plperlu 認婻劉庖埇傖锬埡婉埇媇䔇 PL/Perl 埻䓉㔗

PL/PerlU 庘昄䔇嘩蔙媙釂濘懟婉脘檪臖庘昄䫘庯啔傂嘘婉愿啔䔇庋愙啹婺垄埇傖幾傂嘘昄扞康䞇䊖叻脘幾䔇庋愙㔗臙濘懟昄扞康係䂘埻噕螩昄扞康轙亓䫘潙录傺婉埇媇臺蘔喍䔇庘昄㔗

套悩婪麵䔇庘昄䫌轙亓䫘潙䫘 plperlu 录傺闼幽欓臯儌嚔潊媘㔗