Perlについての質問箱 43箱目

113 名前：デフォルトの名無しさん mailto:sage [2010/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が表示される。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef