如何使用Perl的MIME::Entity删除MIME消息中的HTML部分？

先解释文档代码的逻辑 #

你看到的这段是MIME::Entity官方文档给出的多部件消息过滤示例：

### Delete some parts of a multipart message:
my @keep = grep { keep_part($_) } $msg->parts;
$msg->parts(\@keep);

• $msg->parts会获取当前MIME消息的所有子部件
• grep { ... }是Perl的过滤函数，其中keep_part($_)是需要你自行定义的判断逻辑——传入每个部件对象，返回true就保留该部件，返回false则过滤掉
• 最后$msg->parts(\@keep)把过滤后的部件列表重新赋值给消息，完成删除操作

结合你的定位代码，实现删除HTML的具体写法 #

你已经能通过mime_type定位HTML部件，直接把判断逻辑整合到过滤流程里即可：

写法1：直接在grep中写判断（最简洁）

# 筛选出所有非text/html类型的部件
my @keep_parts = grep { $_->mime_type ne 'text/html' } $msg->parts;
# 重新设置消息的部件列表，完成HTML部分的删除
$msg->parts(\@keep_parts);

写法2：自定义keep_part函数（和文档示例对齐）

如果想和文档示例的结构保持一致，也可以单独定义keep_part函数：

# 定义保留规则：只保留非HTML类型的部件
sub keep_part {
    my $part = shift;
    return $part->mime_type ne 'text/html';
}

# 执行过滤并更新消息部件
my @keep = grep { keep_part($_) } $msg->parts;
$msg->parts(\@keep);

特殊场景处理：嵌套多部件 #

如果你的MIME消息存在多层嵌套的多部件（比如multipart/alternative里还嵌套了multipart/mixed），需要递归遍历所有子部件删除HTML：

sub remove_html_recursive {
    my $msg = shift;
    return unless $msg->is_multipart;
    
    my @filtered_parts;
    foreach my $part ($msg->parts) {
        if ($part->is_multipart) {
            # 递归处理嵌套的多部件
            remove_html_recursive($part);
            push @filtered_parts, $part;
        } else {
            # 非多部件，只保留非HTML类型
            push @filtered_parts, $part unless $part->mime_type eq 'text/html';
        }
    }
    $msg->parts(\@filtered_parts);
}

# 调用递归函数处理整个消息
remove_html_recursive($msg);

内容的提问来源于stack exchange，提问作者jcalfee314