• Herkunft: München
  • Registrierungsdatum: 03-09-2001
  • Beiträge: 152

Thema: E-Mail Check

hij leutz,

ich hab mal ein muster für regexps zusammen geschrieben das checkt ob eine E-Mail Adresse eine gültige Syntax besitzt oder nicht. Brauch das alle Nase lang und daher dachte ich s könnten auch ein paar andere gebrauchen.

^(([a-zA-Z0-9-]+)([.]?))+@[a-zA-Z0-9-](([a-zA-Z0-9-]+)([.]?))*[a-zA-Z0-9-].([a-zA-Z]{2}|com|net|org|biz|mil|aero|edu|gov|info|name|museum|pro|coop|int|arpa)$

Ich hab das ganze für php gemacht, inwiefern das auch in perl geht weiß ich nicht.
Das Script läßt auch E-Mails wie "name1.vor2na-me@host-er.uk.com" zu. Bin noch am überlegen ob ich das ausbau und auch IP-Adressen als "domainname" zulass.

Wenn jemand Bugs findet oder das ganze aufbohrt wär ich über ne kleine Mitteilung sehr erfreut.

so long...

Man bemerkt erst wieviel ein Mensch einen bedeutet wenn er nicht mehr da ist.

2 Antwort von Basti

  • Basti
  • Ehrenmitglied
  • Offline
  • Registrierungsdatum: 27-09-2001
  • Beiträge: 2.126

Re: E-Mail Check

DCLP-FAQ:
15.11. Wie kann ich feststellen, ob eine Mailadresse äußerlich gültig ist?
http://www.dclp-faq.de/q/q-mail-adresse-gueltig.html

Basti

3 Antwort von matho

  • matho
  • Moderator
  • Offline
  • Herkunft: Deutschland
  • Registrierungsdatum: 21-01-2001
  • Beiträge: 1.352

Re: E-Mail Check

N'abend,

Ab Seite 300 seines Buchs 'Reguläre Ausdrücke' beschreibt
Jeffrey Friedl die Schwierigkeiten einer korrekten
Überprüfung einer e-mail-Adresse. Auszugehen ist dabei von

http://www.faqs.org/rfcs/rfc822.html

wie immer, wenn man's genau machen möchte.

Jeffrey Friedl sagt, die Aufgabe sei prinzipiell nicht
zu lösen.
Mit gewissen Einschränkungen ist es aber dennoch machbar,
führt im Endergebnis allerdings zu einer regex mit um
die 5000 Zeichen. Das Programm, das diese regex konstruiert,
findest Du hier:

http://public.yahoo.com/~jfriedl/regex/email-opt.txt

Es ist in perl geschrieben, und weil's einfach sonderschön ist,
füge ich  diese unglaubliche regex hier mit an (optimierte Fassung):

   
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
                                   # optional leading comment
     (?:
             
   
     
     (?:
        
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
                  # Atom
        |                       #  or
        
     "                                     # "
        [^\x80-xffn15"] *                            #   normal
        (?:  \ [^x80-xff]  [^\x80-xffn15"] * )*        #   ( special normal* )*
     "                                     #        "
            # Quoted string
      )
  
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
 
     (?:
         . 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  
     (?:
        
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
                  # Atom
        |                       #  or
        
     "                                     # "
        [^\x80-xffn15"] *                            #   normal
        (?:  \ [^x80-xff]  [^\x80-xffn15"] * )*        #   ( special normal* )*
     "                                     #        "
            # Quoted string
      )
  
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # additional words
     )*
  @ 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  
      
   (?:
     
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
 
     |
     
     [                            # [
     (?: [^\x80-xffn15[]] |  \ [^x80-xff]  )*     #    stuff
     ]                           #           ]
 
    )
    
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # optional trailing comments
 
      (?:
         . 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  
   (?:
     
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
 
     |
     
     [                            # [
     (?: [^\x80-xffn15[]] |  \ [^x80-xff]  )*     #    stuff
     ]                           #           ]
 
    )
    
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # optional trailing comments
 
      )*
 
                   # address
             |                             #  or
             
    
     (?:
        
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
                  # Atom
        |                       #  or
        
     "                                     # "
        [^\x80-xffn15"] *                            #   normal
        (?:  \ [^x80-xff]  [^\x80-xffn15"] * )*        #   ( special normal* )*
     "                                     #        "
            # Quoted string
      )
                         # leading word
    [^()<>@,;:".\[]x80-xff00-1012-37] *               # "normal" atoms and/or spaces
    (?:
       (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  | 
     "                                     # "
        [^\x80-xffn15"] *                            #   normal
        (?:  \ [^x80-xff]  [^\x80-xffn15"] * )*        #   ( special normal* )*
     "                                     #        "
  ) # "special" comment or quoted string
       [^()<>@,;:".\[]x80-xff00-1012-37] *            #  more "normal"
    )*
   
     < 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
                  # <
        (?: 
     @ 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  
      
   (?:
     
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
 
     |
     
     [                            # [
     (?: [^\x80-xffn15[]] |  \ [^x80-xff]  )*     #    stuff
     ]                           #           ]
 
    )
    
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # optional trailing comments
 
      (?:
         . 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  
   (?:
     
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
 
     |
     
     [                            # [
     (?: [^\x80-xffn15[]] |  \ [^x80-xff]  )*     #    stuff
     ]                           #           ]
 
    )
    
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # optional trailing comments
 
      )*
 
     (?: , 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  @ 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  
      
   (?:
     
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
 
     |
     
     [                            # [
     (?: [^\x80-xffn15[]] |  \ [^x80-xff]  )*     #    stuff
     ]                           #           ]
 
    )
    
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # optional trailing comments
 
      (?:
         . 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  
   (?:
     
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
 
     |
     
     [                            # [
     (?: [^\x80-xffn15[]] |  \ [^x80-xff]  )*     #    stuff
     ]                           #           ]
 
    )
    
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # optional trailing comments
 
      )*
  )*  # additional domains
     :
     
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # optional trailing comments
  )?     #       optional route
        
   
     
     (?:
        
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
                  # Atom
        |                       #  or
        
     "                                     # "
        [^\x80-xffn15"] *                            #   normal
        (?:  \ [^x80-xff]  [^\x80-xffn15"] * )*        #   ( special normal* )*
     "                                     #        "
            # Quoted string
      )
  
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
 
     (?:
         . 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  
     (?:
        
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
                  # Atom
        |                       #  or
        
     "                                     # "
        [^\x80-xffn15"] *                            #   normal
        (?:  \ [^x80-xff]  [^\x80-xffn15"] * )*        #   ( special normal* )*
     "                                     #        "
            # Quoted string
      )
  
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # additional words
     )*
  @ 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  
      
   (?:
     
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
 
     |
     
     [                            # [
     (?: [^\x80-xffn15[]] |  \ [^x80-xff]  )*     #    stuff
     ]                           #           ]
 
    )
    
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # optional trailing comments
 
      (?:
         . 
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  
   (?:
     
   [^(40)<>@,;:".\[]00-37x80-xff]+    # some number of atom characters...
   (?![^(40)<>@,;:".\[]00-37x80-xff]) # ..not followed by something that could be part of an atom
 
     |
     
     [                            # [
     (?: [^\x80-xffn15[]] |  \ [^x80-xff]  )*     #    stuff
     ]                           #           ]
 
    )
    
    [40t]*                    # Nab whitespace.
    (?: 
    (                              #  (
         [^\x80-xffn15()] *                             #     normal*
        (?:                                 #       (
           (?:  \ [^x80-xff]  | 
    (                            #  (
        [^\x80-xffn15()] *                            #     normal*
       (?:  \ [^x80-xff]   [^\x80-xffn15()] * )*        #     (special normal*)*
    )                           #                       )
  )    #         special
             [^\x80-xffn15()] *                         #         normal*
        )*                                  #            )*
    )                             #                )
  [40t]* )*    # If comment found, allow more spaces.
  # optional trailing comments
 
      )*
 
         #       address spec
     >                    #                 >
       # name and address
      )

Wenn man sich mit solcherlei befasst, sind eben diese Seiten
300ff - wie immer - ausserordentlich empfehlenswert.

Jeffrey E.F. Friedl
Reguläre Ausdrücke
O'Reilly
ISBN 3-930673-62-2


gruß

matho