mirror of
https://github.com/postgres/postgres.git
synced 2025-06-17 17:02:08 +03:00
config
contrib
adminpack
amcheck
auth_delay
auto_explain
bloom
bool_plperl
expected
sql
bool_plperl.sql
bool_plperlu.sql
.gitignore
Makefile
bool_plperl--1.0.sql
bool_plperl.c
bool_plperl.control
bool_plperlu--1.0.sql
bool_plperlu.control
btree_gin
btree_gist
citext
cube
dblink
dict_int
dict_xsyn
earthdistance
file_fdw
fuzzystrmatch
hstore
hstore_plperl
hstore_plpython
intagg
intarray
isn
jsonb_plperl
jsonb_plpython
lo
ltree
ltree_plpython
oid2name
old_snapshot
pageinspect
passwordcheck
pg_buffercache
pg_freespacemap
pg_prewarm
pg_standby
pg_stat_statements
pg_surgery
pg_trgm
pg_visibility
pgcrypto
pgrowlocks
pgstattuple
postgres_fdw
seg
sepgsql
spi
sslinfo
start-scripts
tablefunc
tcn
test_decoding
tsm_system_rows
tsm_system_time
unaccent
uuid-ossp
vacuumlo
xml2
Makefile
README
contrib-global.mk
doc
src
.dir-locals.el
.editorconfig
.gitattributes
.gitignore
COPYRIGHT
GNUmakefile.in
HISTORY
Makefile
README
README.git
aclocal.m4
configure
configure.ac
36058a3c55
plperl's default handling of bool arguments or results is not terribly satisfactory, since Perl doesn't consider the string 'f' to be false. Ideally we'd just fix that, but the backwards-compatibility hazard would be substantial. Instead, build a TRANSFORM module that can be optionally applied to provide saner semantics. Perhaps usefully, this is also about the minimum possible skeletal example of a plperl transform module; so it might be a better starting point for user-written transform modules than hstore_plperl or jsonb_plperl. Ivan Panchenko Discussion: https://postgr.es/m/1583013317.881182688@f390.i.mail.ru
67 lines
1.5 KiB
PL/PgSQL
67 lines
1.5 KiB
PL/PgSQL
CREATE EXTENSION bool_plperl CASCADE;
|
|
|
|
--- test transforming from perl
|
|
|
|
CREATE FUNCTION perl2int(int) RETURNS bool
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE bool
|
|
AS $$
|
|
return shift;
|
|
$$;
|
|
|
|
CREATE FUNCTION perl2text(text) RETURNS bool
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE bool
|
|
AS $$
|
|
return shift;
|
|
$$;
|
|
|
|
CREATE FUNCTION perl2undef() RETURNS bool
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE bool
|
|
AS $$
|
|
return undef;
|
|
$$;
|
|
|
|
SELECT perl2int(1);
|
|
SELECT perl2int(0);
|
|
SELECT perl2text('foo');
|
|
SELECT perl2text('');
|
|
SELECT perl2undef() IS NULL AS p;
|
|
|
|
--- test transforming to perl
|
|
|
|
CREATE FUNCTION bool2perl(bool, bool, bool) RETURNS void
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE bool
|
|
AS $$
|
|
my ($x, $y, $z) = @_;
|
|
|
|
die("NULL mistransformed") if (defined($z));
|
|
die("TRUE mistransformed to UNDEF") if (!defined($x));
|
|
die("FALSE mistransformed to UNDEF") if (!defined($y));
|
|
die("TRUE mistransformed") if (!$x);
|
|
die("FALSE mistransformed") if ($y);
|
|
$$;
|
|
|
|
SELECT bool2perl (true, false, NULL);
|
|
|
|
--- test selecting bool through SPI
|
|
|
|
CREATE FUNCTION spi_test() RETURNS void
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE bool
|
|
AS $$
|
|
my $rv = spi_exec_query('SELECT true t, false f, NULL n')->{rows}->[0];
|
|
|
|
die("TRUE mistransformed to UNDEF in SPI") if (!defined ($rv->{t}));
|
|
die("FALSE mistransformed to UNDEF in SPI") if (!defined ($rv->{f}));
|
|
die("NULL mistransformed in SPI") if (defined ($rv->{n}));
|
|
die("TRUE mistransformed in SPI") if (!$rv->{t});
|
|
die("FALSE mistransformed in SPI") if ($rv->{f});
|
|
$$;
|
|
|
|
SELECT spi_test();
|
|
|
|
DROP EXTENSION plperl CASCADE;
|