如何使用perl为原始回复电子邮件生成文本文件

如何使用perl为原始回复电子邮件生成文本文件,perl,email,Perl,Email,我想为原始回复电子邮件自动生成一个文本文件,例如,如下所示: Subject: hello Mime-Version: 1.0 (Mac OS X Mail 6.6 \(1510\)) Content-Type: text/html; charset=us-ascii X-Apple-Base-Url: x-msg://5/ X-Universally-Unique-Identifier: f3193934-f4df-4b36-95ab-36f3171570b8 X-Apple-Mail

我想为原始回复电子邮件自动生成一个文本文件,例如,如下所示:

Subject: hello
Mime-Version: 1.0 (Mac OS X Mail 6.6 \(1510\))
Content-Type: text/html;
    charset=us-ascii
X-Apple-Base-Url: x-msg://5/
X-Universally-Unique-Identifier: f3193934-f4df-4b36-95ab-36f3171570b8
X-Apple-Mail-Remote-Attachments: YES
From: Some Person <usera@mydomain.com>
X-Apple-Windows-Friendly: 1
Date: Mon, 24 Feb 2014 14:43:11 -0800
X-Apple-Mail-Signature: SKIP_SIGNATURE
Content-Transfer-Encoding: 7bit
Message-Id: <41FFDBF3-D482-45A4-A11F-CA545621B513@mydomain.com>
X-Smtp-Server: mymachine
X-Uniform-Type-Identifier: com.apple.mail-draft
To: userb@mydomain.com

<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "></body></html>
主题:你好 Mime版本:1.0(Mac OS X Mail 6.6\(1510\) 内容类型:text/html; 字符集=美国ascii码 X-Apple-Base-Url:X-msg://5/ X-通用唯一标识符:f3193934-f4df-4b36-95ab-36f3171570b8 X-Apple-Mail-Remote-Attachments:是 发信人:某个人 X-Apple-Windows友好型:1 日期:2014年2月24日星期一14:43:11-0800 X-Apple-Mail-Signature:跳过签名 内容传输编码:7bit 消息Id: X-Smtp-Server:mymachine X-Uniform-Type-Identifier:com.apple.mail-draft 致:userb@mydomain.com 这是通过首先回复收到的电子邮件获得的,然后在
sent
框中,我可以看到
show original source


有没有办法将此电子邮件自动生成为文本文件,或打印到标准输出?

对于SMTP/Exchnage服务器分配的神秘值,不应由客户端程序生成


您可以这样生成电子邮件:

我不清楚您的意思。你能不能把它用引号括起来,并在前面加上
print
?我的意思是说用文本生成整个电子邮件,例如,如何获取
X-universal-Unique-Identifier
消息Id