I use a simple MacPerl program to archive my email: I save each message to a
text file, then run the program to append the messages to a text file in
date/time order. Omitting some details, the heart of the program is just:
open (inhandle,"$infilename"))
{
while(<inhandle>)
{ print $outhandle $_; }
}
My problem is that some of my email contains Japanese text. I'm running OS
9.2.1 with the Japanese Language Kit installed. But when Japanese text goes
through the program it comes out as garbage like
"bÉvÇ•ñŽéwÇ…ÇÝǻLJÇÃÉiÉrÉQÅ[É^Å". Obviously the encoding is being lost, but
I don't have the slightest idea how to fix this. Is there a module out there
that would provide a simple answer to this problem? Maybe it's just a
fantasy, but I'm hoping for something simple like
print $outhandle convertJapaneseText($_);
