topic Re: perl expression to change not in group of value in SAS Programming

perl expression to change not in group of value

Ditza1 — Mon, 30 Oct 2017 10:53:31 GMT

Hello,

I want to change every character that not ST or LI to " "

I wrote this code:

data _null_;
a='ELISG_ST#AT_#S_STD#D="Y"';
b=prxchange('s/[^(ST|LI)]/ /',-1,a);
put a=;
put b=;
run;

a=ELISG_ST#AT_#S_STD#D="Y"

this is the output:
b=LIS ST T S ST

this is the desire output:

LI ST ST

how can I use not without this [] brackets that create class group?

Re: perl expression to change not in group of value

Ksharp — Mon, 30 Oct 2017 12:41:52 GMT


data _null_;
a='ELISG_ST#AT_#S_STD#D="Y"';
length b $ 100;
do i=1 to length(a)-1;
 temp=substr(a,i,2);
 if temp  in ('ST' 'LI') then b=catx(' ',b,temp);
end;
put a=;
put b=;
run;

Re: perl expression to change not in group of value

Ditza1 — Mon, 30 Oct 2017 12:54:57 GMT

Hi,
Thanks for the answer, but I am looking for a way to do it with regular
expressions

Re: perl expression to change not in group of value

Ksharp — Mon, 30 Oct 2017 13:17:21 GMT

OK. No problem.


data _null_;
a='ELISG_ST#AT_#S_STD#D="Y"';


length b $ 200;
start=1;
end=length(a);
pid=prxparse('/ST|LI/');
call prxnext(pid,start,end,a,p,l);
do while(p>0);
 b=catx(' ',b,substr(a,p,l));
 output;
 call prxnext(pid,start,end,a,p,l);
end;

put a=;
put b=;
run;

Re: perl expression to change not in group of value

Ksharp — Mon, 30 Oct 2017 13:27:44 GMT

Opps.
Delete the OUTPUT statement.

Re: perl expression to change not in group of value

Ditza1 — Mon, 30 Oct 2017 18:21:17 GMT

Thanks for your help

I am doing this as part of learn regular expression, so I am not looking for a solution to this specific problem.

I try to understand how to do it only with regular expression.

if I want to change ST and LI

I will use the following code:

data _null_;
a='ELISG_ST#AT_#S_STD#D="Y"';
b=prxchange('s/(ST|LI)/ /',-1,a);
put a=;
put b=;
run;

I am looking for a way to put not on (ST|LI)

any Ideas?

Re: perl expression to change not in group of value

ChrisNZ — Mon, 30 Oct 2017 22:19:26 GMT

^ can only be used in a [] class.

But this works too if you want another way:


data _null_;
  a='ELISG_ST#AT_#S_STD#D="Y"';
  b=prxchange('s/.*?((ST)|(LI))?.*?/$1/',-1,a);
  put a= / b=;
run;

b=LISTST