Jon Reinsch wrote:
> 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($_);
This might seem very simple but have you looked into
use locale
at all ? try looking at perldoc perllocale for some informative text.
dunno if this will help but it's where my instincts pointed me...
