Re: PL/Perl returning multiple rows - Mailing list pgsql-general

From Alvaro Herrera
Subject Re: PL/Perl returning multiple rows
Date
Msg-id 20031111192548.GC19912@dcc.uchile.cl
Whole thread Raw
In response to Re: PL/Perl returning multiple rows  (Joe Conway <mail@joeconway.com>)
List pgsql-general
On Mon, Nov 10, 2003 at 11:01:45PM -0800, Joe Conway wrote:

> create or replace function foo(text, text, text)
> returns text[] as '
>  return "{\\"" . $_[0] . "\\",\\"" . $_[1] . "\\",\\"" . $_[2] . "\\"}";
> ' language plperl;

FWIW, this could be written more easily as

create or replace function foo(text, text, text)
returns text[] as '
    return qq/{"/ . (join qq/","/, @_) . qq/"}/;
' language plperl;

Somewhat more readable.

--
Alvaro Herrera (<alvherre[a]dcc.uchile.cl>)
"Ellos andaban todos desnudos como su madre los parió, y también las mujeres,
aunque no vi más que una, harto moza, y todos los que yo vi eran todos
mancebos, que ninguno vi de edad de más de XXX años" (Cristóbal Colón)

pgsql-general by date:

Previous
From: "mboscia"
Date:
Subject: change conndeferrable in pg_constraint?
Next
From: Josué Maldonado
Date:
Subject: update slow