Обсуждение: cannot create table using pl/perl

Installed latest postgresql 8 on windows xp,
everything works fine with pl/pgsql; problems creating
a table with perl however:

CREATE OR REPLACE FUNCTION datetable() RETURNS integer
AS $$
CREATE TABLE tabletest
(
    dayofmonth int4,
    monthofyear int4,
    theyear int4
)
$$
LANGUAGE 'plperlu' ;

But now when I try to run this function using query:
select * from datetable();

ERROR:  error from Perl function: Can't locate object
method "dayofmonth" via package "int4" (perhaps you
forgot to load "int4"?) at line 3.

Any ideas appreciated.  :-)




__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

On Sat, Aug 12, 2006 at 02:04:42PM -0700, Jim Bryan wrote:
> Installed latest postgresql 8 on windows xp,
> everything works fine with pl/pgsql; problems creating
> a table with perl however:
>
> CREATE OR REPLACE FUNCTION datetable() RETURNS integer
> AS $$
> CREATE TABLE tabletest
> (
>     dayofmonth int4,
>     monthofyear int4,
>     theyear int4
> )
> $$
> LANGUAGE 'plperlu' ;

That function body isn't Perl code; to execute SQL commands you'll
need to use spi_exec_query or spi_query().  Here's an example that
uses a here-document; note also "RETURNS void" since the function
doesn't return anything useful:

CREATE OR REPLACE FUNCTION datetable() RETURNS void AS $$
spi_exec_query(<<END_OF_SQL);
CREATE TABLE tabletest
(
    dayofmonth int4,
    monthofyear int4,
    theyear int4
)
END_OF_SQL
$$
LANGUAGE plperl;

--
Michael Fuhr