GET／POSTメソッド
 
CGIにデータを送るにはリクエストメソッドというものを指定する必要があり、通常はGETとPOSTのどちらかを指定します。 GETメソッドで送ると入力データは環境変数QUERY_STRINGにセットされます。ところが環境変数には長さの制限があるため、大量のデータを送ることができません。このような場合はPOSTメソッドを使います。POSTメソッドの場合は入力データは標準入力に、データ長は環境変数CONTENT_LENGTHにセットされます。
<FORM>タグでMETHODを省略した場合のデフォルトはGETとなります。

リクエストメソッドには他にHEAD, PUT, DELETE, LINK, UNLINK などがあります。

次はCGIで入力データを解析するサブルーチンの例です。これは後で再利用するのでutil.plとしてライブラリ化しておきます。なお、日本語に関する処理は「日本語コードの取り扱い」の項を参照してください。
 
このサブルーチンは再利用可能なので util.pl に入れておきます。 
#
# parseInput(encoding)
# <IN>  encoding: 日本語コード(jis|sjis|euc)
# <OUT> Name=>Val のハッシュ（グロブ）
#
sub parseInput
{
        my($encoding) = @_;
        my($method) = $ENV{'REQUEST_METHOD'};
        local($query, @in, $key, $val);


        # 日本語が必要な場合は jcode.pl を取り込む
        require 'jcode.pl' if $encoding;

        # GETメソッドかPOSTメソッドかを判別する
        if ($method eq 'GET') {
                $query = $ENV{'QUERY_STRING'};
        }
        elsif ($method eq 'POST') {
                read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
        }

        # 入力データを分解する
        local(@query) = split(/&/, $query);

        # Name=Val を $in{'Name'} = 'Val' のハッシュにする。
        foreach (@query) {

                # + を空白文字に変換
                tr/+/ /;

                # Name=Val を分ける
                ($key, $val) = split(/=/);

                # %HH形式を元の文字にデコードする。
                $key =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
                $val =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;

                $val =~ s/\r\n/\n/g;

                # 日本語コードが指定されている場合は変換する。
                jcode'convert(*key, $encoding) if ($encoding);
                jcode'convert(*val, $encoding) if ($encoding);

                # 連想配列（ハッシュ）にセット
                $in{$key} = $val;
        }

        # 連想配列のグロブを返す
        return *in;
}

CGIでまずやらなければならないことは入力メソッドがGETかPOSTかを判断することです。
次に入力データの分解です。