[ABAP] RegEx – String auf gültiges Unix-Verzeichnis testen

IF abap_true = cl_abap_matcher=>create( pattern = '^((?:\/[a-zA-Z0-9]+(?:_[a-zA-Z0-9]+)*(?:\-[a-zA-Z0-9]+)*)+)$'
                                        text = '/usr/sap/'
                                        ignore_case = abap_true )->match( ).
  WRITE: / 'Gültiges Unix-Verzeichnis.'.
ELSE.
  WRITE: / 'Ungültige Unix-Verzeichnis.'.
ENDIF.