You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
119 lines
2.5 KiB
PL/PgSQL
119 lines
2.5 KiB
PL/PgSQL
|
|
BEGIN;
|
|
|
|
/**
|
|
* Samples from PostgreSQL src/tutorial/basics.source
|
|
*/
|
|
CREATE TABLE weather (
|
|
city varchar(80),
|
|
temp_lo int, -- low temperature
|
|
temp_hi int, -- high temperature
|
|
prcp real, -- precipitation
|
|
"date" date
|
|
);
|
|
|
|
CREATE TABLE cities (
|
|
name varchar(80),
|
|
location point
|
|
);
|
|
|
|
|
|
INSERT INTO weather
|
|
VALUES ('San Francisco', 46, 50, 0.25, '1994-11-27');
|
|
|
|
INSERT INTO cities
|
|
VALUES ('San Francisco', '(-194.0, 53.0)');
|
|
|
|
INSERT INTO weather (city, temp_lo, temp_hi, prcp, "date")
|
|
VALUES ('San Francisco', 43, 57, 0.0, '1994-11-29');
|
|
|
|
INSERT INTO weather (date, city, temp_hi, temp_lo)
|
|
VALUES ('1994-11-29', 'Hayward', 54, 37);
|
|
|
|
|
|
SELECT city, (temp_hi+temp_lo)/2 AS temp_avg, "date" FROM weather;
|
|
|
|
SELECT city, temp_lo, temp_hi, prcp, "date", location
|
|
FROM weather, cities
|
|
WHERE city = name;
|
|
|
|
|
|
|
|
/**
|
|
* Dollar quotes starting at the end of the line are colored as SQL unless
|
|
* a special language tag is used. Dollar quote syntax coloring is implemented
|
|
* for Perl, Python, JavaScript, and Json.
|
|
*/
|
|
create or replace function blob_content_chunked(
|
|
in p_data bytea,
|
|
in p_chunk integer)
|
|
returns setof bytea as $$
|
|
-- Still SQL comments
|
|
declare
|
|
v_size integer = octet_length(p_data);
|
|
begin
|
|
for i in 1..v_size by p_chunk loop
|
|
return next substring(p_data from i for p_chunk);
|
|
end loop;
|
|
end;
|
|
$$ language plpgsql stable;
|
|
|
|
|
|
-- pl/perl
|
|
CREATE FUNCTION perl_max (integer, integer) RETURNS integer AS $perl$
|
|
# perl comment...
|
|
my ($x,$y) = @_;
|
|
if (! defined $x) {
|
|
if (! defined $y) { return undef; }
|
|
return $y;
|
|
}
|
|
if (! defined $y) { return $x; }
|
|
if ($x > $y) { return $x; }
|
|
return $y;
|
|
$perl$ LANGUAGE plperl;
|
|
|
|
-- pl/python
|
|
CREATE FUNCTION usesavedplan() RETURNS trigger AS $python$
|
|
# python comment...
|
|
if SD.has_key("plan"):
|
|
plan = SD["plan"]
|
|
else:
|
|
plan = plpy.prepare("SELECT 1")
|
|
SD["plan"] = plan
|
|
$python$ LANGUAGE plpythonu;
|
|
|
|
-- pl/v8 (javascript)
|
|
CREATE FUNCTION plv8_test(keys text[], vals text[]) RETURNS text AS $javascript$
|
|
var o = {};
|
|
for(var i=0; i<keys.length; i++){
|
|
o[keys[i]] = vals[i];
|
|
}
|
|
return JSON.stringify(o);
|
|
$javascript$ LANGUAGE plv8 IMMUTABLE STRICT;
|
|
|
|
-- json
|
|
select * from json_object_keys($json$
|
|
{
|
|
"f1": 5,
|
|
"f2": "test",
|
|
"f3": {}
|
|
}
|
|
$json$);
|
|
|
|
|
|
-- psql commands
|
|
\df cash*
|
|
|
|
|
|
-- Some string samples.
|
|
select 'don''t do it now;' || 'maybe later';
|
|
select E'dont\'t do it';
|
|
select length('some other''s stuff' || $$cat in hat's stuff $$);
|
|
|
|
select $$ strings
|
|
over multiple
|
|
lines - use dollar quotes
|
|
$$;
|
|
|
|
END;
|