[Melbourne-pm] Decoding =?ISO-8859-1...

Rick Measham rick at measham.id.au
Sun Jul 20 06:02:31 PDT 2008


Nathan Bailey wrote:
> I know this should be trivial, but for some reason, I can't change:
> =?ISO-8859-1?B?U2Nhbm5lZCBmcm9tIE1GUC0w?=  
> =?ISO-8859-1?B?MEY1NzYzMSAwNy8xNi8yMDA4?= =?ISO-8859-1?B?IDE1OjMz?=
> into "Scanned from MFP-00F57631 07/16/2008 15:33"
> 
> I've tried just decoding ISO-8859-1, I've tried decoding and re-encoding 
> as utf8, and I've even tried Unicode::String, but I still seem to end up 
> with the same input as output.

G'day Nathan,
You want MIME::Words from CPAN

perl -MMIME::Words -wle 'print scalar 
MIME::Words::decode_mimewords("=?ISO-8859-1?B?U2Nhbm5lZCBmcm9tIE1GUC0w?= 
  =?ISO-8859-1?B?MEY1NzYzMSAwNy8xNi8yMDA4?= =?ISO-8859-1?B?IDE1OjMz?=")'

# Scanned from MFP-00F57631 07/16/2008 15:33

Cheers!
Rick Measham
-- 
Message  protected for iSite by MailGuard: e-mail anti-virus, anti-spam and content filtering.
http://www.mailguard.com.au




More information about the Melbourne-pm mailing list