Re: perlsub

Hello Nabil,

you worte at 2003-10-04T01:29:00:

> perlsub:
> -----------------------------------------------
> CREATE FUNCTION perlsub(text, text, text) RETURNS text AS '
>      my ($data, $pat, $repl) = @_;
>      $data =~ s/$pat/$repl/;
>      return $data
> ' LANGUAGE 'plperl';
> -----------------------------------------------

> SELECT perlsub('a=b','([^=]+)=(.+)','key:$1;val:$2');

> Any idea ? Just a matter of quoting ?

What I understand: You want to split some data into a pair of key
and value.

So, just do that:

    ($key, $val) = split(/=/, $data);

HTH.

cya :-)
Martin "vi"