文字値のパターンマッチングに使用できるPerl正規表現(PRX)をコンパイルします。
| カテゴリ: | 文字列マッチング |
| 制限事項: | 他のPerl正規表現とともに使用します。 |
| PRXPARSEにはDBCSとの互換性がありません。 |
data _null_;
if _N_=1 then
do;
retain patternID;
/* The i option specifies a case insensitive search. */
pattern="/ave|avenue|dr|drive|rd|road/i";
patternID=prxparse(pattern);
end;
input street $80.;
call prxsubstr(patternID, street, position, length);
if position ^= 0 then
do;
match=substr(street, position, length);
put match:$QUOTE. "found in " street:$QUOTE.;
end;
datalines;
153 First Street
6789 64th Ave
4 Moritz Road
7493 Wilkes Place
;"Ave" found in "6789 64th Ave" "Road" found in "4 Moritz Road"