BookmarkSubscribeRSS Feed

[SAS 프로그래밍 고수 백승민] [PERL] 이메일 유효성 검증 방법 (PRXPARSE)

Started ‎06-11-2020 by
Modified ‎06-12-2020 by
Views 148

* 출처 : http://www.stats.uwa.edu.au/Internal/sas_tips#email;

 

* Perl 관련 함수를 이용한 이메일 유효성 검증 파일입니다.;

*  perl언어를 자세히 몰라서 좀더 정확한 규칙이 있는지 모르겠네요;

* Perl언어에 관하여는 아래 주소 및 Perl 언어 관련 자료 참조;

http://www.statwith.pe.kr/SAS/1.FUNCTION/F_list.htm#F04

 

DATA BACK;
  INPUT EMAIL_ADDR $20.;
CARDS;
not.kr.email
not@kr.email.either
seung.min@stat.ssu.ac
back@hotmail.com
back@home.com,back.work.com
back@hanmail.net
 
@
@.
;

 

DATA BACK1;
 SET BACK;
     RETAIN MAIL_VAR;
     IF _N_ = 1 THEN DO;     
        REGEXP = "/^[\w.%+-]+@[\w.-]+\.[a-z]{2,4}\s*$/i";
        MAIL_VAR = PRXPARSE(REGEXP);
     END;
     IF   EMAIL_ADDR = ''                   THEN EMAIL_VALID_YN='비유효';
     ELSE IF PRXMATCH(MAIL_VAR, EMAIL_ADDR) THEN EMAIL_VALID_YN='유효';
     ELSE EMAIL_VALID_YN='비유효';
     DROP MAIL_VAR REGEXP;
RUN;

Version history
Last update:
‎06-12-2020 01:11 AM
Updated by:
Contributors

sas-innovate-wordmark-2025-midnight.png

Register Today!

Join us for SAS Innovate 2025, our biggest and most exciting global event of the year, in Orlando, FL, from May 6-9. Sign up by March 14 for just $795.


Register now!

Article Labels
Article Tags