データをCGIに渡す形式に変換する。

質問

中に入れ子で別のCGIが入っているCGIを考えました。
<iframe ・・・ action="入れ子.cgi?data1=なんたら&data2=かんたら"></iframe>
みたいな感じです。

data1とdata2は親のCGIで考えて入れ子のCGIに渡します。

ところでCGIにマルチバイト文字を渡す場合は、何らかの処理をして
　%([a-fA-F0-9][a-fA-F0-9])
の形式に変換されます。

これを元に戻す方法が
　=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
であることは分かったのですが、ならば元の文字列を
　%([a-fA-F0-9][a-fA-F0-9])
に変換する方法が
　=~s/[^a-fA-F0-9]/unpack("H2", $1)/g;
かと思いきや、うまく動きません。

どのように式を書けばいいのでしょうか？

#! usr/bin/perl -d

use utf8;
binmode(STDOUT,'utf8');

our %in=(textfield=>'テスト',submit=>'送信');

foreach(keys %in) {
my $unpack=$in{$_};
my $unpack=~s/[^a-fA-F0-9]/unpack("H2", $1)/g;
my $pack=$unpack;
$pack=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;

print "$_ &nbsp; $in{$_} &nbsp; $unpack &nbsp; $pack <br>\n";
}

回答No.1

zxcv0000 · ベストアンサー

普通、CGIパラメーター中の文字の処理はブラウザがやってくれるのですが、ブラウザを介さずに直に子のCGIを起動するという事ですか？

> =~s/[^a-fA-F0-9]/unpack("H2", $1)/g;
> かと思いきや、うまく動きません。

[^a-fA-F0-9] では無く、生でURLに入れない文字の検出式を書きます。 ちょっとだけ面倒なので、 CGI::escape() を使った方が良いと思います。
# ASCII文字中にも、生でURLに入れてはいけない文字があります。

CGI.pm は、utf8フラグに対応したバージョンを使いましょう。

お礼

ありがとうございます。

うまく子のCGIでデータを渡すことが出来ました。

#! usr/bin/perl -d

use utf8;
use CGI;
use Encode;

binmode(STDOUT,'utf8');

our $q=new CGI;
our %in=(textfield=>'テスト',submit=>'送信');

#画面表示
print $q->header(-charset=>'utf8'),
$q->start_html(-charset=>'utf8',
-lang=>'ja-JP');

foreach(keys %in) {#キーとデータを表示
my $unpack=&CGI::escape($in{$_});
my $pack=$unpack;
$pack=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
my $decoded=&Encode::decode('utf8',$pack);

print "$_ &nbsp; $in{$_} &nbsp; $unpack &nbsp; $pack &nbsp; $decoded <br>\n";
}

print $q->end_html;