Re^4: MIME::Parser::Filer and filenames in Simplified Chinese

[uxbod]

Here is some test code I am using to try and resolve the problem

#!/usr/bin/perl

use Encode;
use Encode::CN;
use Encode::TW;
use MIME::EncWords qw ( /decode_mimewords/);

binmode STDOUT, ":utf8";

my $text = "=?gb2312?B?RFBNMjAwN2V4Y2hhbmdl64rgXcVj4F3P5NDej80uemlw?="
+;

my(@chunks) = decode_mimewords($text);
for my $pair (@chunks) {
   my($data,$encoding) = @$pair;
   my $filename = Encode::decode($encoding,$data);
   print $filename . "\n";
}

[uxbod]

Actually I have just modified my test program to use Zwons code and that worked perfectly! Thank you so so much :)

[uxbod]

Spoke to soon :( Even though it is decoded correctly when displayed if you dump the output one sees

DPM2007exchange電郵與郵箱修復.zip

$VAR1 = "DPM2007exchange\x{96fb}\x{90f5}\x{8207}\x{90f5}\x{7bb1}\x{4fee}\x{5fa9}.zip";

This the does not match the physical file that resides on the server. How can one get them to be the same ?

[zwon]

They are the same, it's just Dumper escapes unicode characters.