perl - 将 utf8 解码为 ISO-8859-1 邮件主题为 .procmailrc 文件中的文本

Question

着手编写一个简单的 procmail recipie，如果它在主题中找到文本“ABC Store: New Order”，它将转发邮件。

 :0
    * ^(To|From).*abc@cdefgh.com
    * ^Subject:.*ABC Store: New Order*
    {

不幸的是，来自邮件服务器的邮件消息中的主题字段是 MIME 编码字语法。

主题：=?UTF-8?B?QUJDIFN0b3JlOiBOZXcgT3JkZXI=?=

上面的主题是 utf-8 ISO-8859-1 字符集，所以想知道是否有任何机制/脚本/实用程序来解析它并转换为字符串格式，以便我可以应用我的 procmail 过滤器。

Answer 1

Subject:在分配给 procmail 变量之前，您可以使用 perl one liner 进行解码。

# Store "may be encoded" Subject: into $SUBJECT after conversion to ISO-8859-1
:0 h
* ^Subject:.*=\?
SUBJECT=| formail -cXSubject: | perl -MEncode=from_to -pe 'from_to $_, "MIME-Header", "iso-8859-1"'

# Store all remaining cases of Subject: into $SUBJECT
:0 hE
SUBJECT=| formail -cXSubject:

# trigger recipe based also on $SUBJECT content
:0
* ^(To|From).*abc@cdefgh.com
* SUBJECT ?? ^Subject:.*ABC Store: New Order
{
....
}

---

评论 (2020-03-07)：转换为 UTF-8 字符集而不是 ISO-8859-* 可能会更好。

Answer 2

你应该使用MIME::EncWords.

像这样

use strict;
use warnings;
use 5.010;

use MIME::EncWords 'decode_mimewords';

my $subject = '=?UTF-8?B?QUJDIFN0b3JlOiBOZXcgT3JkZXI=?=';
my $decoded = decode_mimewords($subject);
say $decoded;

输出

ABC Store: New Order