Perl expression

[RajasekharReddy]

 Hello ,

Please help to change "MCLAUREN" value as "McLAUREN"  by using Perl Expression (PRXCHANGE)

I tried below code but didn't work for me

data _null_;
   x = 'MCLAUREN';
   y = prxchange("s/ (MC) /\u\L$1/i", -1, x);
   put y=;
run;

Thanks in Advance

[HB · Accepted solution]

Look at the example on Page 9 of this:

http://www2.sas.com/proceedings/forum2007/223-2007.pdf

I think you want to set your regular expression first like

re = prxparse('s/ (MC) /\u\L$1/i');

and then call it like they do 

cleanname= prxchange( re, 1, oldname);

[kiranv_]

something like this

data _null_;
   x = 'MCLAUREN';
   y = prxchange("s/^(MC)(.+)/Mc$2/i", -1, x);
   put y=;
run;

[jim_cai]

or something like prxchange("s/^MC(.+)/Mc$1/", -1, x), since "Mc" is typed in manually so it is unnecessary to catch "MC".

[Patrick]

Or like this:

data _null_;
   x = 'pEter MClAUREN & ian macIllIoMChadha';
   y = prxchange("s/\b(MC|MAC)(\w)/\1\u\2/i", -1, propcase(x));
   put y=;
run;

Result:

y=Peter McLauren & Ian MacIlliomchadha

[Ksharp]

data _null_;
   x = 'MCLAUREN';
   y = prxchange("s/^(MC)/\u\L$1/i", 1, x);
   put y=;
run;