Comment analyser un e-mail pour extraire du texte (mot de passe) et le stocker dans une variable

Question

J'ai un système qui envoie un e-mail à un utilisateur avec un mot de passe temporaire. J'utilise le script suivant pour sortir l'email mais je cherche un moyen d'extraire le mot de passe et de stocker la valeur dans une variable. Le corps de l'e-mail aura le texte suivant "Votre mot de passe temporaire est" Je voudrais analyser le corps de l'e-mail et extraire. Je suppose que je pourrais utiliser un module d'analyse pour rechercher "Votre mot de passe temporaire est", puis stocker le jeton suivant dans une variable, mais ma connaissance de perl n'est pas terrible. Est-ce que quelqu'un peut-il me montrer la bonne direction?

#!/usr/bin/perl 

use Net::POP3; 

my $username="user"; 
my $password="password"; 
my $host="192.168.17.50"; 

    # Constructors 
    my $pop = Net::POP3->new($host)|| 
     die "Problem calling Net::PoP->new\n$!\n"; 

# $pop = Net::POP3->new($host, Timeout => 60); 
    if ($pop->login($username, $password) > 0) { 
     my $msgnums = $pop->list; # hashref of msgnum => size 
     foreach my $msgnum (keys %$msgnums) { 
     my $msg = $pop->get($msgnum); 
     my $password = extract_password($msg)|| 
      die "Problem with extract_password\n$!\n"; 
     print $password; 
     $pop->delete($msgnum); 
     } 
    } 
    $pop->quit; 

Answer 1

est ici une fonction qui reçoit le texte du message et retourne si elle ne le trouve pas le mot de passe ou undef.

sub extract_password { 
    my $text = shift; 

    if ($text =~ /Your temporary password is (\S+)/) { 
     return $1; 
    } 
    else { 
     return undef; 
    } 
} 

Ensuite, vous pouvez dire my $password = extract_password($msg_text).