Perl使用MIME::Parser解析没有部分的电子邮件正文
Perl使用MIME::Parser解析没有部分的电子邮件正文
提问于 2019-06-06 02:43:09
我有一个perl脚本，它使用MIME::Email来解析从stdin收到的电子邮件，但它不能处理没有部分的电子邮件。我没有能力在发送电子邮件之前修改它们。
我希望能够识别电子邮件的重要部分，无论它是HTML还是文本，并将其存储在缓冲区中以便稍后处理。这些电子邮件中的许多都来自以某种方式自动生成的邮件列表。
有时，它们似乎只有一个没有边界的"Content-Type:“头。
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit其他时候，它们有多个文本/普通部分，其中一个是电子邮件的正文，另一个是签名。
在这之后还有一些其他的标题行，但是正文只显示没有任何边界标记。
这是我两年前的帖子，展示了我是如何最终弄清楚如何使用parts Parsing email with Email::MIME and multipart/mixed with subparts解析大多数电子邮件的
use strict;
use MIME::Parser;
use MIME::Entity;
use Email::MIME;
use Email::Simple;
my $parser = MIME::Parser->new;
$parser->extract_uuencode(1);
$parser->extract_nested_messages(1);
$parser->output_to_core(1);
my $buf;
while(<STDIN> ){
$buf .= $_;
}
my $entity = $parser->parse_data($buf);
$entity->dump_skeleton;
my $num_parts = $entity->parts;
for (my $i=0; $i < $num_parts; $i++) {
my $part = $entity->parts($i);
my $content_type = $part->mime_type;
my $body = $part->as_string;
print "body: $body\n";
}永远不会打印正文文本。仅来自dump_skeleton的以下内容：
Content-type: text/plain
Effective-type: text/plain
Body-file: NONE
Subject: Security update 我真的希望能够修改我现有的脚本(在之前的stackexchange帖子中显示)，以便能够打印这样的电子邮件，而不会有任何边界。
这是不是很差的格式？我找不到任何可以用来可靠地打印电子邮件正文、主题和其他基本标题的库的示例，而没有复杂的步骤来逐个分析整个邮件。
我知道mimeexplode可以做到，但我不知道怎么做到。我需要将邮件正文存储在缓冲区中以进行操作，因此使用像mimeexplode这样的命令行程序也是一种间接的方式。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56466303
复制相关文章
相似问题