ブラウザーにCGIで処理した何らかの内容を記憶させる場合に通常クッキーを使用します。 まず、クッキーの書きこみ(ブラウザーに記憶させる)方法です。 ID(キー)を決めます。 このIDは何でもいいのですが、そのサイトにあったものを設定してください。 # クッキーIDを定義 $cook_id = "nnet"; #クッキーをセットします。(ブラウザーに記憶させる) #時間は標準時間を使用します。 sub set_cookie { ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 60*24*60*60); #ここの60*24*60*60は、60日間有効という意味です。つまり、 #60日×24時間×60分×60秒という意味で、60日間の秒数を表しています。 #24時間有効にしたければ、gmtime(time + 24*60*60);となります。 $yearg += 1900; if ($secg < 10) { $secg = "0$secg"; } if ($ming < 10) { $ming = "0$ming"; } if ($hourg < 10) { $hourg = "0$hourg"; } if ($mdayg < 10) { $mdayg = "0$mdayg"; } $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') [$mong]; $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday') [$wdayg]; $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT"; #ここまでは、基本的な記述ですので変更しないで使用してください。 #以下の$idと$pwが記憶させたい変数を表します。 #$id=1234; $pw=abcd; とした場合、この1234とabcdがブラウザーに記憶されます。 $cook = "id\:$id\,pw\:$pw"; #以下でブラウザーのクッキーにセット(保存)しています。 print "Set-Cookie: $cook_id=$cook; expires=$date_gmt\n"; } ============================================== 呼び出し方は以下になります。 sub get_cookie { @pairs = split(/;/, $ENV{'HTTP_COOKIE'}); foreach (@pairs) { local($key,$val) = split(/=/); $key =~ s/\s//g; $DUMMY{$key} = $val; } @pairs = split(/,/, $DUMMY{$cook_id}); foreach (@pairs) { local($key,$val) = split(/:/); $COOKIE{$key} = $val; } $c_id = $COOKIE{'id'}; $c_pw = $COOKIE{'pw'}; } 上記の$c_idと$c_pwに先に記憶されたIDとパスが呼び出されます。 つまり、1234とabcdがそれぞれ呼び出されます。 上記の使い方は、 書きこみたいところで、&set_cookie; を記述し、呼び出したいところで &get_cookie; を記述すれば、OKなわけです。