Validate email address using regular expression in SAP ABAP详解编程语言

Step1:Validate email address using regular expression in SAP ABAP Normal 

SAP ABAP- Validate email address using a regular expression, by using this we can not validate the existance of email address but we can validate uviversal email format.

Resourse used : SAP class CL_ABAP_REGEX and CL_ABAP_MATCHER .

Regular expression for email validation

'^[_a-zA-Z0-9-] (/.[_a-zA-Z0-9-] )*@[a-zA-Z0-9-] (/.[a-zA-Z0-9-] )*(/.[a-zA-Z]{2,4})$'  

Declare classes

DATA:GO_REGEX    TYPE REF TO CL_ABAP_REGEX, 
     GO_MATCHER  TYPE REF TO CL_ABAP_MATCHER. 

Add regular expression.

DATA: L_PAT(500) TYPE C. 
 
L_PAT = '^[_a-zA-Z0-9-] (/.[_a-zA-Z0-9-] )*@[a-zA-Z0-9-] (/.[a-zA-Z0-9-] )*(/.[a-zA-Z]{2,4})$' . 

Create object for regex class

CREATE OBJECT GO_REGEX 
  EXPORTING 
    PATTERN     = L_PAT 
    IGNORE_CASE = ABAP_TRUE. 

Create macher and check match

GO_MATCHER = GO_REGEX->CREATE_MATCHER( TEXT =  'Emailid' ). "email to validate 
IF GO_MATCHER->MATCH( ) IS INITIAL. 
  WRITE:/ 'Email is not valid'. 
ELSE. 
  WRITE :/ 'Email is valid'. 
ENDIF. 

Example program for validating email

REPORT ZSAPN_VALIDATE_EMAIL. 
PARAMETERS P_EMAIL TYPE STRING. 
DATA:GO_REGEX    TYPE REF TO CL_ABAP_REGEX, 
     GO_MATCHER  TYPE REF TO CL_ABAP_MATCHER. 
 
DATA: L_PAT(500) TYPE C. 
 
L_PAT = '^[_a-zA-Z0-9-] (/.[_a-zA-Z0-9-] )*@[a-zA-Z0-9-] (/.[a-zA-Z0-9-] )*(/.[a-zA-Z]{2,4})$' . 
 
CREATE OBJECT GO_REGEX 
  EXPORTING 
    PATTERN     = L_PAT 
    IGNORE_CASE = ABAP_TRUE. 
TRANSLATE P_EMAIL TO LOWER CASE. 
GO_MATCHER = GO_REGEX->CREATE_MATCHER( TEXT =  P_EMAIL )."lt_node_op4 ). 
IF GO_MATCHER->MATCH( ) IS INITIAL. 
  WRITE:/ 'Email is not valid'. 
ELSE. 
  WRITE :/ 'Email is valid'. 
ENDIF.