perlの質問

質問

#!/usr/local/bin/perl

require 'jcode.pl'; # 漢字コード変換ライブラリ

#**********　データを受け取る
$query = $ENV{ 'QUERY_STRING' };
&parse_param( $query );

$name = $param{ 'name' }; # 投稿者
$email = $param{ 'email' }; # メールアドレス

#**********　結果の出力
print "Content-type: text/html\n\n";
print "投稿者：".$name."<BR>";
print "メールアドレス：".$email;

exit;

#********** 入力したデータの分解 **********
sub parse_param {
　local( $name, $value );
　local( $parse_data ) = @_;
　@in_params = split( /&/, $parse_data );
　foreach $in_param ( @in_params ) {
　　( $name, $value ) = split( /=/, $in_param );
　　$value =~ tr/+/ /;
　　$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1) )/ge;
　　&jcode'convert( *value, 'sjis' );
　　$param{ $name } = $value;
　}
}

の
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack
の部分だけ、何の処理をしているかがいまいちわかりません。
わかる方お願いします。

回答No.1

ElectricGamo · ベストアンサー

この二行はURLエンコードされたデータをデコードする部分です。URLエンコードでは、A～Z、a～z、0～9、* - . @ _ はそのままで、半角スペースは + に、その他は % に16進数の2桁の文字コードとなります。例えば、SJISの「あ」は16進数値で0x82 0xA0で %82%A0とエンコードされます。

これをデコードするので、まず最初に、+にエンコードされたものを半角スペースにします。これが一行目です。その次に%82%A0のようにエンコードされたものを0x82 0xA0に変換します。それが二行目です。pack関数やhex関数についてはご自分でお調べください。