Help with Kakasi

GaijinPunch has asked for the wisdom of the Perl Monks concerning the following question:

This is driving me nuts. I need to break down a bunch of kanji into hiragana (or katakana). What I've got:

#!/usr/bin/perl
#
#
use strict;
use warnings;
use Text::Kakasi;

my $k = Text::Kakasi->new('-JJ','-c','-w','-i utf8','-o utf8');

my $jpn = $k->get("魔法");
print "$jpn\n";
[download]

What's returned:

Wide character in print at ./kakasi.pl line 12.
魔法
[download]

Searched around, but apparently not many people here use this module.

Comment on Help with Kakasi Select or Download Code

Replies are listed 'Best First'.
Re: Help with Kakasi by lestrrat (Deacon) on Jul 27, 2005 at 07:17 UTC
is line 12 `print "$jpn\n"`? If so, you just have a wide character. which is quite possible since you are asking Kakasi to return utf8. Try encoding this to some other encoding before you print. euc-jp? `print encode('euc-jp', $jpn"), "\n";` [download]	[reply] [d/l] [select]
Re^2: Help with Kakasi by GaijinPunch (Pilgrim) on Jul 27, 2005 at 08:08 UTC
Well, that's probably but the problem is that $jpn holds the same string I pass to get()... in other words, it's apparently not doing anything. I also can't remember which module supports encode(). :/	[reply]
Re^3: Help with Kakasi by gellyfish (Monsignor) on Jul 27, 2005 at 09:35 UTC
I think you want Encode /j\	[reply]
Re^3: Help with Kakasi by lestrrat (Deacon) on Jul 27, 2005 at 23:00 UTC
What is Kakasi supposed to do with a string containing all ascii characters? eh, nothing. Kakasi translates Japanese to alphabets so you can normalize them. it's not going to do anything with ascii characters And as gellyfish stated, you want Encode	[reply]