Re: Postgres 8.4 literal escaping

Hi,
I've got a similar issue with a function that uses regular-expression-magic.
I got it from the sql list and it works but I'm just about 75% aware of how.
Still PG complains about those \\ everywhere.

Replacing every \ by   || E'\\' ||   would make it ... cough ... not
looking cuter as it allready is.
What would be the correct syntax here?

I need it to search phone numbers.
The function strips all characters that are no number or "+" out of the
input-string.
If the international part is "+49" or "0049" it get reduced to 0.


CREATE OR REPLACE FUNCTION cleanphonenr(text)
  RETURNS text AS
$BODY$
BEGIN
  RETURN CASE
            WHEN regexp_replace($1, E'[^0-9+]', '', 'g') ~ E'^(\\+|00)49'
                 THEN '0'||
                      regexp_replace(
                         regexp_replace(
                            regexp_replace($1, E'[^0-9+()]', '', 'g')
                         , '\\(0\\)||\\(||\\)', '', 'g')
                      , E'^(?:\\+|00)49(.*)', E'\\1')
            WHEN regexp_replace($1, E'[^0-9+]', '', 'g') ~ E'^(\\+|00)'
                 THEN '+'||
                      regexp_replace(
                         regexp_replace(
                            regexp_replace($1, E'[^0-9+()]', '', 'g')
                         , '\\(0\\)||\\(||\\)', '', 'g')
                      , E'^(?:\\+||00)(.*)', E'\\1')
            ELSE
                 regexp_replace($1, E'[^0-9]', '', 'g')
         END;
END;
$BODY$
  LANGUAGE 'plpgsql' VOLATILE
  COST 100;