12

着手编写一个简单的 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 过滤器。

4

2 回答 2

19

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

于 2015-04-18T10:25:25.063 回答
1

你应该使用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
于 2015-04-18T15:04:33.510 回答