Perlについての質問箱 21箱目

とほほって有名なのか？全然知らんかったけど．
で >>568 のコード現代的な Perl としてはいまいち．

簡単にいって，
1. use strict; がない （コンパイル時のチェックがきかない）
2. CGI, CGI::Util モジュールの再実装
3. my を使ってない，あと変数名がいまいち
がだめ．いま perldoc 見れない環境だからうろおぼえでかくけど普通↓だろ．

use strict; # この行がないのは基本的にだめ
use CGI;
use CGI::Util;
my $q = CGI->new;

my @names = $q->param;
foreach $name (@name) {
my $value = CGI::Util::unescape($q->param($name));
print "$name = $value\n";
$FORM{$name} = $value;
}