* 출처 : 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;
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.