E-Mail-Adresse auf syntaktische Korrektheit prüfen

Prüfung einer Email auf syntaktische Korrektheit aus SAP in ABAP:


function check_email_syntax.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     REFERENCE(IV_EMAIL_ADR) TYPE  AD_SMTPADR
*"  EXPORTING
*"     REFERENCE(EV_VALID) TYPE  XFELD
*"----------------------------------------------------------------------

  data lv_offset type i.
  data lv_length type i.

  ev_valid = 'X'.

* Checks if the eMail address is syntactically correct
  find first occurrence of regex '\w+([-+.]\w+)*@(\w+[-+.])*\w+\w+[-+.]\w+\w+'
    in iv_email_adr match offset lv_offset match length lv_length.

  if not ( sy-subrc = 0 and
    lv_offset = 0 and lv_length = strlen( iv_email_adr ) ).
    clear ev_valid.
  endif.

endfunction.



Anmerkung: Die regex ist in ABAP nicht ganz korrekt, da das "w" nicht nur Buchstaben, sondern auch gewisse Sonderzeichen "durchlässt". Hier muss eine Anpassung vorgenommen werden, z.B. :xdigit statt w.