カートを空にする（クッキーを削除する）CGI
クッキーから商品の数を読み取り、商品のクッキーデータの有効期限を
過去の日付にして（こうすると削除される）書き込みを行う。

#!/usr/local/bin/perl

#クッキー読み込み
&getCookie;

#買い物かごの商品数を$nに保存
$n=$COOKIE{'n'};

#クッキー書き込み（有効期限を過去に設定して削除）
for($i=1;$i<=$n;$i++){

print "Set-Cookie: ";
print "item$i=0; ";
print "expires=Thu, 01-Jan-1970 00:00:00 GMT\n";
}

print "Set-Cookie: ";
print "n=0; ";
print "expires=Thu, 01-Jan-1970 00:00:00 GMT\n";

#HTML作成
print < Content-type: text/html

<html><body>
<a href=cart.cgi>商品ページへ戻る</a>
<br>クッキー:$ENV{'HTTP_COOKIE'}
</body></html>
A

#
# Cookieの値を読み出す
#
sub getCookie {
foreach $xx (split(/; /, $ENV{'HTTP_COOKIE'})) {
($name, $value) = split(/=/, $xx);
$COOKIE{$name} = $value;
}
}