トップ新規一覧 Farm 検索ヘルプ RSS ログイン

sub decodeの編集

!!ソースコードの解説
 # Sub Decode #
 sub decode {

if ($ENV{'REQUEST_METHOD'} eq "POST") {

まず環境変数からファイルメソッドPOSTまたはGETを評価します。

$post = 1;

POSTメソッドであった場合、$postという変数に1を代入しフラグを立てます。
Ver.1.10の場合、$post変数が真でなければ多くのサブルーチンが実行できません。
これは不正行為への対策と思われます。

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

STDINで入力されたフォームデータをファイルハンドルによりCONTENT_LENGTHの長さ（ようするに全て）読み込み、$bufferに代入します。

@pairs = split(/&/, $buffer);

$bufferに代入されたフォームデータをsplit関数で、&をスプリッターとして分解し@pairsという配列に格納します。

例としてフォームデータが「id=0000&ps=PASS&nm=NAME」であった場合

*@pairs = (id=0000,ps=PASS,nm=NAME);

となります。

} else { @pairs = split(/&/, $ENV{'QUERY_STRING'}); }

GETであった場合、上と同じくQUERY_STRINGを@pairsという配列に格納します。
QUERY_STRINGはフォームデータ自体が格納されていますので、ファイルハンドルによる操作は不要になります。

foreach $pair (@pairs) {

foreach構文によるループ構文で@pairs配列を展開します。
$pairには@pairsの要素が順に代入されてゆきます。
ループは@pairsの要素の数だけ繰り返して行われます。

($name, $value) = split(/=/, $pair);

$pairに代入された変数をsplit関数で、今度は=をスプリッターとして分解します。
分解されたものは、それぞれ$name、$valueという変数に代入されます。

例として$pairが「id=0000」であった場合

*$name = id;
*$value = 0000;

となります。

$value =~ tr/+/ /;

tr///演算子を使いパターンマッチによる置き換えを行っています。
　+という文字を （半角スペース）に変換しています。
URLエンコードのさい、送られてくるデータの半角スペースが+に置き換えられてCGIに渡されるためこのような変換が必要になります。

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

s///演算子を使いパターンマッチによる置き換えを行っています。

日本語の文字列はURLエンコードによって%xxという形でフォームに送られます。
これをpack関数でもとの文字列に置き換えています。

$1には左側の一番目の括弧（[a-fA-F0-9][a-fA-F0-9]）にマッチした内容が入ります。

オプションeは右側の評価を行います。
上の式の場合、置き換えを行う前にpack("C", hex($1))を実行し、その評価結果を置き換えの対象としています。

オプションgは繰り返し置き換えを行います。
上の式の場合、%xxという形式の文字列をすべて置き換えるまで実行しています。

&jcode'convert(*value,'sjis');

$valueの変数を日本語コード（Shift-JIS）に変換しています。

*&jcode'convert(*スカラ,"文字コード");

というのはjcode.plというライブラリに入っている命令文です。
スカラを文字コードのタイプへと変換します。

$value =~ s/</&lt;/g;
 		$value =~ s/>/&gt;/g;
 		$value =~ s/"/&quot;/g;
 		$value =~ s/\,/，/g;
 		$value =~ s/△/▲/g;
 		$value =~ s/\r\n/<br>/g;
 		$value =~ s/\r/<br>/g;
 		$value =~ s/\n/<br>/g;

$valueに代入された一意の文字を置き換えています。
HTMLタグや改行コード、システム上スプリッターとして使用している文字等が該当しています。

$Fm{$name} = $value;

フォームで送信された値を最終的な形（$Fm{'hoge'}）として代入しています。

*$Fm{'id'};
という形は%Fmという連想配列（ハッシュ）の参照です。

*id=0000（<input type=hidden name=id value=0000>）

であるならば

*$Fm{'id'} = 0000;

となります。これは%Fmというハッシュのキー値idに対してペア値0000を代入している式になります。

この部分がSOSIIの汎用性の高さを物語っていると、勝手に思っています。

}
 }

タイムスタンプを更新しない

添付ファイル

リネーム・コピー

[ヘルプ]