« use strict; | メイン | use Jcode; »
2005年10月12日
use CGI;
フォームからのデータの受け渡し用の便利くんのようです。
-------------------------------------------------
use CGI;
my $query = CGI->new;
my $user = $query->param('user');
-------------------------------------------------
これで フォームの user というフィールドに入れられた値が $user に入るらしい。
便利ね
全てのパラメータ名を取得するには、param()を引数なしで呼びます。
----------------------------------------------------------------------------
use CGI;
my @params = $query->param();
foreach my $param (@params) {
print $param, "\t", $query->param($param), "\n";
}
-----------------------------------------------------------------------------
うーん 便利
同様に、Cookieを取得するにはcookieというメソッドを使う
----------------------------------------------------------------------------
use CGI;
my $query = CGI->new;
my $session = $query->cookie('session_id');
----------------------------------------------------------------------------
CGIモジュールによるアップロード・ファイルの受け取りとかもできるそうな
----------------------------------------------------------------------------
use CGI;
my $buffer;
my $query = CGI->new;
my $file = $query->param('file');
my $file_name = ($file =~ /([^\\\/:]+)$/) ? $1 : 'uploadedd.bin';
open(OUT, ">$file_name") or die(qq(Can't open "$file_name".));
binmode OUT;
while (read($file, $buffer, 1024)) {
print OUT $buffer;
}
close OUT;
---------------------------------------------------------------------------------------
ちとよーわからんが まあとで・・・
投稿者 muuming : 2005年10月12日 18:36