Perl - 如何从头部的FROM部分获取电子邮件地址？

我正在尝试为本地乐队简报设置此脚本。Perl - 如何从头部的FROM部分获取电子邮件地址？

目前，有人发送一封电子邮件，其中包含要添加的请求，我们将其手动添加到我设置的通讯邮件程序中。（这工作很好，谢谢我在这里找到的帮助！）

现在的意图是让我的脚本登录到我为我们的服务器上的列表设置的电子邮件帐户，获取信息以自动添加电子邮件。

我知道有一堆应用程序可以做到这一点，但我想了解自己。

我已经有“添加到列表”时，有一个电子邮件地址从标题下方的返回（从）工作，但是，有时头（从）是一个名称，而不是电子邮件地址（eg "persons name" is returned from persons name<[email protected]> but, not the <[email protected]>。）

现在，我不是沉迷于下面的方法，但是，它着名... ...的一个点。

我阅读了关于这些模块的所有文档，没有任何我能找到的东西在那里得到电子邮件。

有人可以帮我吗？详细的例子非常感谢，因为我正在努力学习Perl。

#!/usr/bin/perl -w 
    ########## 
    use CGI; 
    use Net::IMAP::Simple; 
    use Email::Simple; 
    use IO::Socket::SSL; #optional i think if no ssl is needed 
    use strict; 
    use CGI::Carp qw(fatalsToBrowser warningsToBrowser); 
    ###################################################### 
    # fill in your details here 
    my $username = '#########'; 
    my $password = '#############'; 
    my $mailhost = '##############'; 
    ####################################################### 
    print CGI::header(); 
    # Connect 
    my $imap = Net::IMAP::Simple->new($mailhost, port=> 143, use_ssl => 0,) || die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr\n"; 
    # Log in 
    if (!$imap->login($username, $password)) { 
     print STDERR "Login failed: " . $imap->errstr . "\n"; 
     exit(64); 
    } 
    # Look in the the INBOX 
    my $nm = $imap->select('INBOX'); 
    # How many messages are there? 
    my ($unseen, $recent, $num_messages) = $imap->status(); 
    print "unseen: $unseen, <br />recent: $recent, <br />total: $num_messages<br />\n\n"; 
    ## Iterate through unseen messages 
    for (my $i = 1 ; $i <= $nm ; $i++) { 
     if ($imap->seen($i)) { 
     my $es = Email::Simple->new(join '', @{ $imap->top($i) }); 
     printf("[%03d] %s\n\t%s\n", $i, $es->header('From'), $es->header('Subject')); 
     print "<br />"; 
     next; 
     }## in the long version these are pushed into different arrays for experimenting purposes 
     else { 
     my $es = Email::Simple->new(join '', @{ $imap->top($i) }); 
     printf("[%03d] %s\n\t%s\n", $i, $es->header('From'), $es->header('Subject')); 
     print "<br />"; 
     } 
    } 
    # Disconnect 
    $imap->quit; 
    exit;

来源

2010-11-10 DulcimerDude

use Email::Address; 
my @addresses = Email::Address->parse('persons name <[email protected]>'); 
print $addresses[0]->address;

的parse method返回数组，因此上述方法为我工作。

来源

2010-11-10 16:31:36

谢谢！ my $ line = $ es-> header（'From'）;我的@addresses = Email :: Address-> parse（$ line）;打印$地址[0] - >地址; – DulcimerDude 2010-11-10 16:54:09

谢谢 - 谢谢 - 谢谢！完善... – DulcimerDude 2010-11-10 17:01:27

我在做这个单独的答案，因为即使这些信息隐藏在接受答案的评论中，我花了整整一天的时间才弄清楚。

首先你需要使用类似Email :: Simple的东西来获取From头文件。然后你需要用Email :: Address来提取地址部分。

use Email::Simple; 
use Email::Address; 

my $email = Email::Simple->new($input); 
my $from = $email->header('From'); 
my @addrs = Email::Address->parse($from); 
my $from_address = $addrs[0]->address; # finally, the naked From address.

这4个步骤依次进行。

的最后一步是由混乱通过电子邮件::地址使用一些巫术在那里，如果您打印的电子邮件::地址 - >解析返回部分的事实，他们看起来像简单的字符串，但它们实际上是对象。例如，如果您打印的电子邮件::地址 - >解析像这样的结果，

my @addrs = Email::Address->parse($from); 
foreach my $addr (@addrs) { say $addr; }

您将得到完整的地址作为输出：

"Some Name" <[email protected]>

这方面的工作时，这是非常令人困惑。当然，我通过首先打印结果导致了混淆，但是我在调试时出于习惯。

来源

2017-07-29 18:30:23 felwithe

Perl - 如何从头部的FROM部分获取电子邮件地址？

回答

相关问题