むう
[E-Mail]
[HomePage]
1998/11/24(火) 06:21:48
どうしてもうまくいかないのですが
フォームから入力されたデータを
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else { $buffer = $ENV{'QUERY_STRING'}; }
@setdata = split(/&/, $buffer);
foreach $parts (@setdata) {
($name, $value) = split(/=/, $parts);
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$name =~ s/ //;
$name =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
&jcode'convert(*value, "sjis");
$FORM{$name} = $value;
}
として
while(($name,$value)=each(%FORM)){
$mailbody .= "$name = $value <BR>\n";
}
print "$mailbody\n";
で表示させるとフォームに書かれている順番とは関係なく
順不同に表示されるのですが、これはこういう物なのでしょうか？
もしくは、どこか誤りがあるでしょうか？
順番通り表示させる方法がありましたら教えてください。