PERL expression

Jaheuk — Thu, 06 Feb 2014 16:41:32 GMT

can someone give me the perl expression to always capture the code between BE and XX instead of substr function ?

it start always at pos 6 but length can vary, ending is also always with XXX to complete total length of 11

data a;

length c023 $11. ;

c023='400BE88XX';

ba=substr(c023,6,-6+index(c023,'X'));

run;

GreetZ,

Herman

Re: PERL expression

Haikuo — Thu, 06 Feb 2014 17:20:45 GMT

data a;

length c023 $11. ;

c023='400BE88XX';

ba=substr(c023,6,-6+index(c023,'X'));

ba_prx=prxchange('s/(.*BE)(.*)(XX.*)/$2/o',-1,c023);

run;

Haikuo