On Wed Jan 3 18:31:47 2001 -0800 Chris Mealy wrote:
Based on the perl unicode faq, I expected this to work:
sub shift_jis_to_utf8 {
my ($shift_jis) = @_;
my $encoding = 'Shift-JIS';
my $Map = new Unicode::Map({ ID => $encoding });
my $map_out = $Map->to_unicode($shift_jis);
my $us = Unicode::String->new($map_out);
my $us_utf8 = $us->utf8;
return $us_utf8;
}
but it doesn't. What's the right way to convert SJIS to UTF-8 with perl?
Text::Iconv ?
--
☻ Ričardas Čepas ☺
~~
~
