Perl 更改电子邮件主题答案

【问题标题】：Perl change Email SubjectPerl 更改电子邮件主题
【发布时间】：2016-12-03 15:16:30
【问题描述】：

我是 Perl 新手，我需要阅读一封来自 Exchange 的电子邮件，并使用 Perl 为主题添加一个 ID。

我正在搜索，我找到了：

Mail::Internet 将邮件拆分为 Mail::Header 类中的标头对象和正文。您可以通过此对象获取和设置单独的标头：

my $subject = $obj->head->get("Subject");
$obj->head->replace("Subject", "New subject");

但我根本无法理解如何制作脚本来改变主题。

谁能帮忙？

提前致谢，

【问题讨论】：

执行 $obj->head->replace(...) 后 Mail::Header 对象会发生什么？即在调用 ->replace 之前和之后转储其内容（使用 Data::Dumper）。你注意到有什么不同吗？

【解决方案1】：

这对我有用：

my $header = $entity->head;
my $subject = $entity->head->get('subject');
$header->replace('Subject', "Some new subject");

【讨论】：