PL/Perl

From: "ON(dot)KG" <skyer(at)on(dot)kg>
To: pgsql-general(at)postgresql(dot)org
Subject: PL/Perl
Date: 2005-01-11 11:59:55
Message-ID: 1906385406.20050111145955@on.kg
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-general

Hi All!

I'm trying in 'plperl' forking the processes by 'fork' function,
but receiving this message

Warning: pg_exec(): Query failed: ERROR: creation of function failed: 'fork' trapped by operation mask at (eval 2) line 11.

Does it mean, that in 'plperl' I can't use 'fork' function???

function example
=================
CREATE OR REPLACE FUNCTION perl_fork_test ()
RETURNS int2
AS '
my %pid;

my @urls = (
"http://domain1.com/index.php",
"http://domain2.com/index.php"
);

foreach my $url (@urls) {
unless ($pid{$url} = fork) {
my $html = qx/GET "$url"/;

$ENV{TERM} = &my_exit;

sub my_exit {
exit(0);
}
}
}

sleep 6;
foreach my $url (keys %pid) {
kill SIGTERM, $pid{$url};
}

wait;

return 1;
'
LANGUAGE 'plperl';
===================
VOLATILE
CALLED ON NULL INPUT
SECURITY INVOKER
===================

Thanx

In response to

  • PL/Perl at 2005-01-07 18:17:36 from ON.KG

Responses

  • Re: PL/Perl at 2005-01-11 10:54:44 from Ragnar Hafstað
  • Re: PL/Perl at 2005-01-11 10:55:16 from Richard Huxton
  • Re: PL/Perl at 2005-01-11 16:04:43 from Joshua D. Drake

Browse pgsql-general by date

  From Date Subject
Next Message Jason Tesser 2005-01-11 12:43:43 views in 8.0
Previous Message Richard Huxton 2005-01-11 10:55:16 Re: PL/Perl