Perlで変数を保存するには？

[上に] [前に] [次に]
ミッチー [E-Mail] 1998/11/07(土) 20:09:52
いきなりの質問ですいません。
まずここを見て下さい。 → http://www2.117.ne.jp/~mitti-/test.cgi

このページで、次のページに移動したときに変数を保存したいのですが、
つまりページを移動させても、環境ポイントを１にしたいのですが・・・

ソースはここにあります。
http://www2.117.ne.jp/~mitti-/test.txt
どうかご教授のほどをよろしくお願いします。
ポケモンの鬼！！ 1998/11/07(土) 21:31:36
まず、

    # 環境設定
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $str, $ENV{'CONTENT_LENGTH'});
} else {
$str = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $str);
foreach $pair (@pairs) {
local($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$check = $FORM{'check'};

として、

print "<A HREF=\"$script?view&check=$check\">次のページへ</A>\n";

ですね。
ミッチー 1998/11/10(火) 21:35:03
[[解決]]
返信遅れてすいませんでした。
おかげで解決できました。ありがとうございました。
[上に] [前に] [次に]