日本語のpunycode変換詳しい方教えてください

質問

日本語ドメインのpunycode変換ツールを作ろうと思っているのですが、
以下のようにperlで作成すると、
日本語をpunycode変換した部分の前に'-'が余計に付きます。
どうしてなのでしょうか？

プログラム：
#!/usr/local/bin/perl
use strict;
use utf8;
use IDNA::Punycode;
idn_prefix('xn--');
my $jdomain = "日本語";
my $adomain = encode_punycode(${jdomain});
# HTTPヘッダ出力
print qq{Content-type: text/html\n\n};
print "[${jdomain}]→[${adomain}]\n";
exit(0);

結果：
[日本語]→[xn---wgv71a119e]

正しい結果は、
[日本語]→[xn--wgv71a119e]
になるはずです。

ちなみに、IDNプレフィックスを
idn_prefix('');
にすると、結果は、
[日本語]→[-wgv71a119e]

本来の結果は、
[日本語]→[wgv71a119e]
となるはずです。

回答No.1

sakusaker7 · ベストアンサー

ざっと見てみましたが、IDNA::Punycode のバグのようです。
punycode への変換対象にASCII文字(code point でいうと 0x00 ～ 0x7f)を
含んでいない場合に、不要である '-' が先頭に紛れ込みます。

Encode::Punycode というモジュールがあり、こちらは正しく変換してくれます。

一応　Punycode.pm を
if ($h < @input) {
$PREFIX && unshift(@output, $PREFIX);
push(@output, $Delimiter) if $h==0; # ← if $h==0 を追加
} else {
return join '', @output;
}

と修正してやるとうまく変換できるようになると思います。
せっかくだから、モジュールの作者に報告してあげてください。

お礼

ご回答ありがとうございます。

調べてみたのですが、CPANの
http://search.cpan.org/dist/IDNA-Punycode-0.03/
で、このバグレポートがありました。
v 0.04 でFIXするとあるのですが、
そのv 0.04がいまだUPLOADされていない状況みたいです。

現在、契約中のレンタルサーバは、IDNA::Punycode しか、
実装していないためEncode::Punycodeは使用できない状況です。

ローカルマシンでテスト環境として、AN HTTPD + ActivePerlで
Encode::Punycode モジュールを実装しテストしたのですが、
なぜだか、同じ結果になりました。

もっと調べながら、様子をみてみます。
とても参考になりました。ありがとうございました。

回答No.2

sakusaker7

すみません訂正です。
if $h==0 は if $h!=0 の間違いです。

手元では unless $h==0 と書いていたのを、unlessじゃないほうが
よいだろうと思って回答をポストするときにいじったときに
ミスりました。