POST されたデータを読み込み

もちろん、GET の場合でも使えます。
そんなわけで……。

テスト環境

Windows XP Professional Service Pack 3
ActivePerl 5.8.8 Build 822
Encode-2.33

サンプル コード

例として、以下のアドレスに対して要求があったとき、search.cgi 内部で value を知る方法。

http://www.example.com/search.cgi?q=value

処理の結果は、shiftjis で出力されます。
スクリプトは utf8 で保存してください。

#!/usr/local/bin/perl

use utf8;
use strict;
use Encode;

binmode STDOUT, ":encoding(shiftjis)";

# 変数の設定
my $cgi_q = '';
my $query = '';

# CGI.pm が適切にインストールされている場合
use CGI;
$cgi_q = new CGI;
$query = $cgi_q->param('q');

# Shift_JIS で入力されていた場合
$query = decode("shiftjis", $query);

print $query;

cgi-lib.pl の代わりに使っています。


Powered by NIVOSIdE

今後 Google Analytics によるアクセス解析に記録を残さない