Re: GB2312 Encoding and File Names

Resolved by encoding to UTF-8 once the decoding had been completed:

my $fname =3D encode('utf8', decode('MIME-EncWords', $head->recommended_fil=
ename));
-- 
Thanks, Phil

----- Original Message -----
> Through some help of the PerlMonks board I have decoded the file name
> correctly; but when you dump it does not match the physical file
> name as it is stored within the file system ie.
> 
> MIME Header :
> =3D?gb2312?B?RFBNMjAwN2V4Y2hhbmdl64rgXcVj4F3P5NDej80uemlw?=3D
> Decoded     : DPM2007exchange=E9=9B=BB=E9=83=B5=E8=88=87=E9=83=B5=E7=AE=
=B1=E4=BF=AE=E5=BE=A9.zip
> $VAR1 =3D
> "DPM2007exchange\x{96fb}\x{90f5}\x{8207}\x{90f5}\x{7bb1}\x{4fee}\x{5fa9}.=
zip";
> 
> so when one tries to compare to what is read from a directory listing
> you cannot match them together :( How do I get the decoded name to
> be as it is meant to be; as show above.
> --
> Thanks, Phil
> 
> ----- Original Message -----
> > Just a follow up for some help on this problem. I appear to be able
> > to decode Simplified Chinese okay but Tradional Chinese is somewhat
> > more difficult.  I have the file name MIME entity:
> >
> > =3D?gb2312?B?MzYw0MLOxbzgsuItMTItMDEtQ2hpIFNpbXAudHh0?=3D
> >
> > which should decode to:
> >
> > DPM2007exchange=E9=9B=BB=E9=83=B5=E8=88=87=E9=83=B5=E7=AE=B1=E4=BF=AE=
=E5=BE=A9.zip
> >
> > but when I try and decode that name in Perl it comes out as:
> >
> > DPM2007exchange=EF=BF=BD=EF=BF=BD=EF=BF=BD]=EF=BF=BDc=EF=BF=BD]=E7=AE=
=B1=E4=BF=AE=EF=BF=BD=EF=BF=BD.zip
> >
> > I have installed the Encode::HanExtra module but even with that it
> > is
> > still not showing correctly. Am I missing some other type of module
> > ?
> > --
> > Thanks, Phil
> >
> > ----- Original Message -----
> > > Hello all,
> > >
> > > I do hope I am in the right place for some help! I am working on
> > > a
> > > project that requires email attachments to be extracted to the
> > > file
> > > system. All was working great until one of our kind testers tried
> > > with normal and simplified Chinese; where I ended up with files
> > > of
> > > the name ?????.txt.
> > >
> > > Am using the module MIME::Parser to extract the files and after
> > > some
> > > great help from the developer I have realized that one need to
> > > override a method in MIME::Parser::Filer so that the correct file
> > > names are generated.
> > >
> > > One of the attachments in the test email is show below:
> > >
> > > 360=E6=96=B0=E9=97=BB=E7=9B=91=E6=B5=8B-12-01-Chi Simp.txt
> > >
> > > I have tried to use MIME::EncWords and MIME::Charset to extract
> > > the
> > > correct name from the MIME entity using:
> > >
> > > my $fname =3D decode_mimewords($head->recommended_filename);
> > >
> > > but this still does not work :( so I tried to compare what the
> > > file
> > > name looks like with the LANG with/and without UTF8
> > >
> > > With LANG en_GB.UTF8
> > >
> > > 360=E6=96=B0=E9=97=BB=E7=9B=91=E6=B5=8B-12-01-Chi Simp.txt
> > >
> > > With LANG en_GB
> > >
> > > 360=EF=BF=BD?=EF=BF=BD=EF=BF=BD?=EF=BF=BD=EF=BF=BD??=EF=BF=BD=EF=BF=
=BD?-12-01-Chi Simp.txt
> > >
> > > Now this is what happens when I extract the file with my new
> > > method:
> > >
> > > With LANG en_GB
> > >
> > > 360=EF=BF=BD=EF=BF=BD=EF=BF=BD=C5=BC=EF=BF=BD=EF=BF=BD=EF=BF=BD-12-01=
-Chi Simp.txt
> > >
> > > With LANG en_GB.UTF8
> > >
> > > 360???=C5=BC???-12-01-Chi Simp.txt
> > >
> > > The MIME file name appears as
> > > ?gb2312?B?MzYw0MLChLFPnHktMTItMDEtQ2hpIFRyYWQudHh0?=3D
> > >
> > > This is not may area of expertise so reaching out to you for some
> > > help. How can one extract the file name from an email and have it
> > > reflect its really Chinese name ?  Hope this make sense!
> > > --
> > > Thanks, Phil
> > >
> >
>