CGIのスクリプトの解釈で分からないところがあります

質問

どうも、こんにちは(@^^@)。

CGIのPerlスクリプトを勉強しています。いろいろ手持ちの本を探してみたのですが、下記のスクリプトの一部の解釈の仕方が分からないので教えてください。HTMLフォームからパスワードを受け取って、照会するスクリプトの一部です。他の行は、大体分かるのですが8行目のみが分かりません。

まず、sと対応するgeの意味。また、hex関数の$1の意味。解説書には、$1は特殊な変数と書いてありましたが、それ以上詳しい解説は、ありませんでした。hex＄は、単に16進数を10進数に変換するんですよね。そして、%(..)、pack("c",hex($1))も元の意味が分からないので解釈に困っています。

「パスワードを照会するスクリプトの一部です。」

1: homonsya = $ENV{'QUERY_STRING'};
2:
3: @group = split(/&/, $homonsya);
4: foreach $ans (@group)
5: {($name, $value) = split(/=/, $ans);
6:
7: $value =~ tr/+/ /;
8: $value =~ s/%(..)/pack("c", hex($1))/ge; #.....???←「16真数を『読める文字』変換」とある。
9: $ok_homonsya{$name} = $value;}
10:
11:$pass = $ok_homonsya{'myName'};

また、ネットで調べようと思い、いろいろ検索してみると下記のような行をよく見かけました。

☆　$key =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;

こちらもとても疑問の行と似ていますし、今後もよく使いそうな感じなので、気になっています。私は、パスワードを受け取って、管理者フォームに移動するようなスクリプトを作りたいと思っています。どうぞ、よろしくお願いいたしますm(__)m。

回答No.1

yuizuian · ベストアンサー

例えばYahooなんかで検索をしたときに、アドレスバーに%A1%0B…なんて文字が羅列されるのはご存知ですか？
＃ご存じなければやってみてください。
日本語…というか、2バイトの文字は送信されるときに1バイトずつの文字列にエンコードされて送られます。
＃%A1のA1は16進数の値です。
それを日本語に直す作業が
$value =~ s/%(..)/pack("c", hex($1))/ge;
であり、
$key =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
になります。

正規表現はご存知ですか？
$1, $2, $3…は正規表現中の（）の部分にマッチした文字列を順に返します。
s/%(..)/pack("c", hex($1))/ge;
の場合ですと、%(..)の（）です。
%(..)にマッチした”..”の部分をpack関数の引数として使用しているんですね。

頭のsは「与えられた文字列を一つの行として扱いなさい」という意味です。
改行が含まれていても、それは一つの行だと解釈されます。
gは「何度でもマッチする」という意味です。
これがないと、例えば”aBcad”のaをAに変えたいときに
s/a/A/;
としていると最初のaだけが変換され、”ABcad”という結果になってしまいます。
e「置き換えた部分も式とみなして実行しなさい」という意味で、
1度評価した値を置き換える文字列として使用されます。
確かe一つに対して1回評価が行われたと思います。

上記のことも含めて、Perlスクリプトについて詳しく解説されたサイトがありますのでご紹介しますね。

参考URL：

http://tohoho.wakusei.ne.jp/www.htm

お礼

yuizuianさんどうも、こんにちは(^^)。

この度は、お返事いただきありがとうございました。ネットでいろんな方に聞いたり、友達と試行錯誤したりしていて、pack関数のところでかなり苦戦したのですが、なんとかこれらを例示された用途で使う上では、理解できるようになりました！

それから、URLの引数の解説もとてもよく分かりました。ご紹介いただいた、「参考URL」ですが落ち着いたら、一度ゆっくり目を通してみようと思っています。どうも、この度は、お返事下さって誠にありがとうございました！

また、何か疑問とかありましたら力をおかしくださいませm(__)m。それでは、また(^^)。