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

Question

开始编写一个简单的 procmail 收件人，如果在主题中发现文本“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

在分配给 procmail 变量之前，您可以使用 perl oneliner 来解码 Subject:。

# 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-* 可能会更好。