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

I use Mail::IMAPClient https://metacpan.org/pod/Mail::IMAPClient

有一些变数

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

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

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

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

它建议Mail::IMAPClient https://metacpan.org/pod/Mail::IMAPClient包支持/支持“关键字”“ALL”以一次获取所有标头：

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"; }
}