Декодирование utf8 по ISO-8859-1 почтой с текстом в файле .procmailrc

Question

Настроить простой рецепт procmail, который пересылал бы почту, если бы нашел текст «Магазин ABC: Новый заказ» в теме.

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

К сожалению, поле темы в почтовом сообщении, поступающем из почтового сервера было в MIME синтаксисе закодированных слов.

Предмет: = UTF-8 В QUJDIFN0b3JlOiBOZXcgT3JkZXI = =

выше объект UTF-8 ISO-8859-1 кодировка, поэтому было интересно, если есть какие-либо механизмы/скрипты/утилиты для разбора??? это и преобразовать в строковый формат, чтобы я мог применить свой фильтр procmail.

Answer 1

Вы можете использовать perl один вкладыш для декодирования Subject: перед установкой переменной procmail.

# 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 
{ 
.... 
} 

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