чем перекодировать "=?koi8-r?Q?=CE=C1=D4=C1=CC=D8=D1=20=C4=C1=CE" ?

yolki

вместо =?koi8-r?.. может быть UTF-8, windows-1251, etc
вместо ..?Q?.. может быть B (Base64) или что-то ещё.. Q - это для quoted printable.
конечная задача - сконвертить к единообразию список:

=?koi8-r?B?8tXCwdvLyc4=?= <xx.xx.ru>

=?KOI8-R?B?8tXCwdvLyc4g98HMLJyg==?= <xxx>

=?koi8-r?B?98HKztvUz8sg4dLLwcTJyiDwTSz9fJ3g==?= <xxx>

=?koi8-r?B?98HTyczJyiD6wcjB0s/X?= <xxx>

=?koi8-r?B?98zBxMnNydI=?= <xxx>

=?koi8-r?B?9MvB3sXOy88g7sHUwczY0Q==?= <xxx>

=?koi8-r?Q?=C7=D2=D5=D0=D0=C1=20?=07 <xxx>

=?koi8-r?Q?=CE=C1=D4=C1=CC=D8=D1=20=C4=C1=CE=DA=D5=D2=D5=CE?= <xxx>

=?koi8-r?Q?=E0=C4=C9=CE=C1_=F4=2E=EE=2E?= <xxx>

=?koi8-r?Q?=E0=CC=C9=D1_=FB?= <xxx>

=?koi8-r?Q?=E1=CC=C5=CB=D3=C1=CE=C4=D2=20=F3=D5=CE=C7=D5=D2=CF=D7?= <xxx>

=?UTF-8?B?0KDQtdCy0LDQuiDQodCy0LXRgtC70LDQvdCw?= <xxx>

=?UTF-8?B?0KDRg9Cx0LDRiNC60LjQvQ==?= <xxx>

=?UTF-8?B?SnVra2EgUGlldGlsw6RpbmVu?= <xxx>

=?Windows-1251?B?0PPk7eXi?= <xxx>

=?windows-1251?B?1+jx8u7i4CDR4uXy6+Dt4CDRLg==?= <xxx>

=?windows-1251?B?3uTo7eAg0i7NLg==?= <xxx>

=?windows-1251?B?3vDo6SDB5fDl8fLt5eI=?= <xxx>

=?windows-1251?B?wO3g8u7r6Okg0e7r7uL8uOI=?= <xxx>

Под винду.
есть ActivePerl и UnxUtils (awk, sed, grep, recode, etc).

Bibi

возможно, есть какие-то тонкости, но я для похожих целей(subject у писем) успешно использовал функцию Perl

MIME::Words::decode_mimewords

для тела письма приходилось прибегнуть к конструкции

my $body    = MIME::Words::decode_mimewords( $email -> body );

if( $download_message =~ /Content-Transfer-Encoding: quoted-printable/gi ) {

   $body = MIME::QuotedPrint::Perl::decode_qp( $body );



} # End if

Anna74

FAQ 4. email
4.6 Как декодировать строки типа ...