data _null_;
if _n_=1 then pattern_num=prxparse('/\d{3}/');
retain pattern_num;
input phone_num $11.;
position=prxmatch(pattern_num,phone_num);
file print;
put pattern_num= phone_num= position=;
cards;
13900000000
12349999044
16038489555
12904830935
24902380394
40938609348
19295559440
13919199191
19339119393
29395844859
;
run;



雷达卡





京公网安备 11010802022788号







