TSabc 発言

こんにちわ，
Penelottyです♪

KAWAI,Takanori様，
お返事していただいて，ありがとうございます．

残念ながら，Peneには理解できないところがありまして，
Perl4，Perl5のどちらを使っているのかもわかりません．
上位互換はないのでしょうか？

ただわかりますのは，“ActivePerl517”というものをインストールしています．

Peneは“亀の歩み”ですが，Perl5で孤高の人を目指すと共にCGIモジュールなるものを修得したいと思います．

みなさん，たびたびでもうしわけないのですが，“おみくじ”はアクセスする事に異なるメッセージを表示します．
先ほどもうしました，“get_cookie()”の訂正を載せますので，よろしければご助力願います．

---* Penelotty *---

sub get_cookie {
	@pairs=$ENV{'HTTP_COOKIE'};
	foreach $pair (@pairs) {
		($name, $value)=split(/=/, $pairs);
		$DUMMY{$name}=$value;
	}

	$pairs=split(/,/, $DUMMY{'$COOKIENAME'});
	foreach $pair (@pairs) {
		($name, $value)=split(/:/, $pair);
		$COOKIE{$name}=$value;
	}
	$c_date=$COOKIE{'date'};
	$c_index=$COOKIE{'index'};
}