perl 从 imap 消息中获取所有消息头

Question

我使用 Mail::IMAPClient

有一些变量

$body = $imap->body_string($msg);
$header = $imap->message_string($msg);

$body 包含消息正文，但 $header 包含消息头和消息正文。我没有在 IMAPClient 中找到方法，它只获取消息头。

我需要从 $header 中删除正文。拆分 $body 和 $header 坏变体，因为 body 可能非常大。 body 和 header 分隔空字符串，但我不知道如何使用它。

Answer 1

请看http://gagravarr.org/code/test-imap-headers.pl

它建议 Mail::IMAPClient包支持/支持“关键字”“ALL”一次获取所有 header :

my %headers = %{ $imap->parse_headers( $msg, "ALL" ) };
for my $h ( keys %headers ) {
    my @hdrs = @{ $headers{$h} };
    print "$h (" . scalar @hdrs . " entries)\n";
    foreach (@hdrs) { print "\t$_\n"; }
}