日本語URLへの移動

質問

Perl、CGI初心者です。

HTMLのフォームの選択結果を元にURLを生成し、
そのURLへアクセスするプログラムを作成しています。

URLはPDFファイルやWordファイルになり、URL（ファイル名）には
日本語が含まれています。

print "Location: $URL\n\n";としてURLへ移動するプログラムを
作成したのですが、日本語処理がうまくいっていない（？）ようで
Not Foundとなってしまいます。

なお、NotFoundが表示された状態でブラウザ（IE6）の移動を押下すると
テキストとしてPDFやWordファイルを開きます。
＃NotFoundの時点ではブラウザの文字コードがISOになっています。

$URL =~ tr/+/ /;
$URL =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1) )/ge;
&jcode'convert( *value, 'sjis' );
と日本語処理はしています。

また、ファイルを開くのではなく、以下のようにリンクを貼った場合は、
リンク先は正しく開くことができます。
<a href="$URL" target="_blank">$URL<a><br>

原因、対策を教えて下さい。

回答No.1

kodomo55 · ベストアンサー

今回の場合、URLエンコードが必要となります。
行っている処理は、URLデコードなので、逆です。

また、&jcode'convert(*value, 'sjis') は、
“$value”の文字コードを sjis に変換するので誤りです。
仮に、&jcode'convert(*URL, 'sjis') としても、
URLエンコードを行う前にSJISに変換する必要があります。

# 古臭いですが
&jcode'convert(*URL, 'sjis');
$URL =~ s/(\W)/'%'.unpack("H2", $1)/ego;
print "Location: $URL\n\n";
# どうでしょう？

お礼

回答ありがとうございます。
解決しました。（SJISではだめでUTF8にしましたが）
参考になりました。ありがとうございます。