perl pour regexp adresse mail

Question

Ive a obtenu quelques problèmes avec regex pour cette ecriture lignes dans Exim journal

1. 2011-05-12 11:30:26 1QKRHt-0001aD-Vd => mail <mail@mail.example.com> F=<root@example.com> bla bla 
2. 2011-04-22 12:01:31 1QDCF0-0002ss-Nw => /var/mail/mail <root@mail.mealstrom.org.ua> F=<root@example.com> bla bla 
3. 2011-05-12 11:29:01 1QKRGU-0001a5-Ok => mail@mail.example.com F=<root@example.com> bla bla 

et je veux mettre à la variable ce mail@mail.example.com dans une expression rationnelle. ive tryed utiliser Lile logique ceci: trouver la dernière chaîne avant « F = », et séparés par des espaces blancs peut être bloqué dans <>

Pouvez-vous me aider à écrire cette logique?

Answer 1

Vous pouvez utiliser les expressions régulières suivantes:

# the line should be in variable $line 
if ($line =~ /.*?\s+<?(\S+?)>?\s+F=/) { 
    # ... 
} 

Et il est une bonne idée de valider votre correspondance avec Mail-RFC822-Address module Perl, donc le code complet pourrait être:

use Mail::RFC822::Address qw(valid); 

# the line should be in variable $line 
if ($line =~ /.*?\s+<?(\S+?)>?\s+F=/) { 
    if (valid($1)) { 
    # ... 
    } 
} 

Answer 2

Voici un e-mail de validation Regex

\b[\w\.-]+@[\w\.-]+\.\w{2,4}\b 

Il extraira un e-mail où que vous soyez.

J'espère que ce RFC2822 poster correctement.

[a-z0-9!#$%&'*+/=?^_\`{|}~-]+(?:\\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)\*@(?:\[a-z0-9](?:[a-z0-9-]*[a-z0-9])?.)+\[a-z0-9](?:[a-z0-9-]\*[a-z0-9])? 

Answer 3

Utilisation:

/(?<=<)\S*(?=>\s*F=)/ 

La syntaxe (?<= xxx) est une assertion arrière, et l'(?= xxx) est une assertion avant.

Ceci ne vérifie pas la validité de l'adresse e-mail, il suffit d'extraire cette partie de la ligne.

Answer 4

Regex est pas la mesure, Email::Valid est.