新規記事投稿

フォロー記事投稿

記事のキャンセル

クッキーの使い方がわかりません。

FORM型にして、名前と、E-MAILを食べさせて、

次に来たときに、名前と、E-MAILを吐き出す方法がまったくわかりません。

クッキーの説明を読んでも英語で全くわからない。

クッキーが使えず何週間もなやんでます。うごけーっていっても動いてくれない。
以下のデータです。

#####################はじまり##########
#!/usr/mesh/bin/perl

require 'jcode.pl';
$reload = 'http://www2a.meshnet.or.jp/~1/xxx.cgi';

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &html; } else { ®ist; }

sub html {

#クッキーを出す
$cookies = $ENV{'HTTP_COOKIE'};

#この部分がわかりません。
#この部分がわかりません。
#この部分がわかりません。
#この部分がわかりません。

print "Content-type: text/html\n\n";

print <<"EOF";


名前:

E-MAIL:


EOF
print "\n";
}

sub regist {
@pairs = split(/&/,$buffer);
foreach $pair(@pairs) {
    ($name,$value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
    &jcode'convert(*value,'sjis');    # sjisコードに変換
    $value =~ s/