regular expressions (with PERL)

[LB]

OK all-

So I am trying to figure out regular expressions and I am having a little bit of a challenge.

I am text mining a note field (that can have thousands of characters)-below is just one parameter that I am looking for-

I am looking for it to return a (or any)  value-but it just returns blanks-

Essentially I am looking for certain key phrases-

such as:

lungs are clear

lungs clear

lungs appear clear

Thanks in advance for your help-

Lawrence

data temp2;

set notes;

if _n_=1 then do;

re= prxparse('/lung\w{0,15}clear/');

if prxmatch(re,note_text) then ch=1;

end;

retain re;

run;

[data_null__]

\w does not find spaces.  This seems to work but I'm no RegXpert.

data temp2;

   input note_text $50.;

   if _n_=1

      then re= prxparse('/lung\w{0,15}|\s{1,5}clear/');

   if prxmatch(re,note_text) then ch=1;

   retain re;

   cards;

lungs are clear

lungs    clear

lungsclear

lungs appear clear

;;;;

   run;

proc print;

   run;

[TomKari · Accepted solution]

I believe that the \w metacharacter won't include whitespace, such as blank or tab. Try a period (.) instead, like:

/lung.{0,15}clear/

Also, move your prxmatch function after your end;

Right now, you're only checking the first record.

I believe that your pattern will find "lungclear", which you might not want. If not, change it to {1,15}.

You're absolutely on the right track; you'll have it soon!

[LB]

Thanks both of you!

Both solutions help although TomKari's answer works a tiny bit better.

Another question for you TomKari-

How can I set the first letter of lung to be either upper or lowercase?

Lawrence