この記事は abicky.net の 初めて Perl でコードを書く時に知っておきたかったこと に移行しました
フォームからの入力を受け取る処理の詳細解説 最後に、フォームからの入力を受け取る処理の詳細な解説をしておきます。ここまで読み進めてきた方ならば理解できると思います。 フォームからの入力を受け取る処理は以下になります。 if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $alldata, $ENV{'CONTENT_LENGTH'}); } else { $alldata = $ENV{'QUERY_STRING'}; } foreach $data (split(/&/, $alldata)) { ($key, $value) = split(/=/, $data); $value =~ s/\+/ /g; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1))/eg; $val
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く