10/03/17 16:30:46
>>111
>>108の文章を読めばわかるはずだが、そのやり方ではできない。
WEBでサービスを利用してると、IDと一緒にパスワードも記録するってのはたまに見かけるでしょ？
>>101はIDと一緒にメモを記録しておこうってだけだよ。
#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
use CGI::Cookie;
# 記録
my $cookie1 = new CGI::Cookie(-name=>'id', -value=>"ID");
my $cookie2 = new CGI::Cookie(-name=>'memo', -value=>"MEMO");
print header(-cookie=>[$cookie1,$cookie2]);
# 読取
my %cookies = fetch CGI::Cookie;
my $id = exists $cookies{'id'} ? $cookies{'id'}->value : "none";
my $memo = exists $cookies{'memo'} ? $cookies{'memo'}->value : "none";
print "id: $id\n";
print "memo: $memo\n";
CGIとして実行すると、初回はnone、2回目以降はIDとMEMOが表示される。