37.5. ���ŵĺͲ����ŵ� PL/Perl

ͨ����PL/Perl ����Ϊһ�ֽ� plperl �� "���ŵ�"������԰�װ�ġ� �����������У�Ϊ�˱��ְ�ȫ��ijЩ Perl �������رյ��ˡ�ͨ���� �����ƵIJ���������Щ�ͻ����໥�����Ķ�����������ļ���������� require���� use�������ⲿģ�飩�� ����û�а취�������ݿ�����������ڲ����߻�ȡ���з���������Ȩ�޵� OS ����ķ��ʣ����� C ���������� ��ˣ��κη���Ȩ�����ݿ��û�����������ʹ���������ԡ�

������һ���޷���ת�ĺ��������ӣ���Ϊ���ڰ�ȫԭ�� �ļ�ϵͳ�IJ����Dz�����ģ�

CREATE FUNCTION badfunc() RETURNS integer AS $$
    open(TEMP, ">/tmp/badfile");
    print TEMP "Gotcha!\n";
    return 1;
$$ LANGUAGE plperl;

��������Ĵ����ǿ��Եģ����Dz���ִ������

��ʱ��������д�������Ƶ� Perl ���������磬���ǿ�����Ҫһ���ܷ����ʼ��� Perl ������ Ϊ�˴������������PL/Perl Ҳ���԰�װΪ"������"�����ԣ�ͨ������ PL/PerlU���� ����������£����ǿ���ʹ�������� Perl ���ԡ������ createlang ��װ�����ԣ���ô�� plperlu ������ֿ���ѡȡ�����ŵ� PL/Perl ���֡�

PL/PerlU ���������߱���ע�ⲻ�ܰѸú����������κβ����������飬 ��Ϊ�����Ը��κ������ݿ����Ա��ݵ�¼���û��ܸɵ����顣 ��ע�����ݿ�ϵͳֻ�������ݿⳬ���û���������������д�ĺ�����

�������ĺ����ɳ����û��� plperlu ��������ôִ�оͻ�ɹ���