Plperlu function & backticks return value -> truncated?

Hello,

I'm using the following show_users() function in order to retreive in
postgresql the output from the unix "ps" command.

When run directly from a shell, this code:
 $ps = `ps -afux | grep postgres`; @fields = split /\n/, $ps; return "{" . join(",", @fields) . "}";

... runs fine.

But when run inside a plperlu function, lines are being truncated after
a certain width.

Is that a known limitation of plperlu? Or maybe something else?



Philippe

------------------------------------------------------------
--  TYPE: line_type
------------------------------------------------------------
CREATE TYPE public.line_type AS
( line text
);

------------------------------------------------------------
--  UTILITY FUNCTION: ps
------------------------------------------------------------
CREATE FUNCTION public.ps() RETURNS text[] AS
' $ps = `ps -afux | grep postgres`; @fields = split /\n/, $ps; return "{" . join(",", @fields) . "}";
' LANGUAGE 'plperlu' VOLATILE;

------------------------------------------------------------
--  UTILITY FUNCTION: show_users
------------------------------------------------------------
CREATE FUNCTION public.show_users() RETURNS SETOF user_type AS
'
DECLARE users        text[]; user_rec     line_type%ROWTYPE; i            int2;

BEGIN users = ps();
 FOR i IN 1 .. array_upper(users, 1) LOOP
   user_rec.line = users[i];   RETURN NEXT user_rec;
 END LOOP;
 RETURN;
END
' LANGUAGE 'plpgsql' VOLATILE;

------------------------------------------------------------
--  MAIN
------------------------------------------------------------
select * from show_users();