| トップページ |

2010.05.27

PerlのCGI.pmで複数のCookieを消す

このエントリーをはてなブックマークに追加 mixiチェック

CGI.pmのみ使っているようなタイトな環境で、Cookieを消すというやり方、正直いって知らんかった。最近Cookieってセッション番号ぐらいしか焼いていないし、しかもシステムが勝手に焼くしな……

こんな風にしてみた。

Finename: delete_cookie.cgi

#!/usr/bin/perl
 
use strict;
use warnings;
use CGI;
my $q = new CGI;
my @del_cookies = ('val1', 'val2');
my $cookies;
foreach my $key ( @del_cookies ){
push @$cookies,
     $q->cookie( -name    => $key,
                 -value   => '',
                 -expires => '-1y',
     );
};
print $q->header(-cookie=>$cookies);
exit;
__END__

ちなみに、これブラウザで実行しても見た目なにも表示されない。Cookieを消せっていう指示が入っているHTTPヘッダが見えないところで受信されているっていうことです。

CGI.pm推奨のCookieの使い方は、一つのCookieで、複数の値を入れるタイプなんだけれども、焼かれるCookieは、必ずしもCGI.pm推奨のCookieの使い方に倣っていない場合がある。

今回のCookie削除は、複数のCookieを削除するタイプです。ループしてやらなきゃいけないのね……

2010.05.27 午後 12:15 [Perl] | |

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/19018/48469907

この記事へのトラックバック一覧です: PerlのCGI.pmで複数のCookieを消す:

コメント

コメントを書く






Sony Style（ソニースタイル）

検索


  • Google
    Web blog 内   

プロフィール

あわせて読みたい

カテゴリー

総エントリー数：3815

ﾅﾐﾓﾆ

  • PowerEdge T105

    • DELLのサーバ（意外に安価）。64bitLinux載っけるといいよね、ちょっと高くなるけどRAIDオプションとHDD２台構成にしておくと安心です。

最近のコメント

RSS

最近の記事

○○○

最近のトラックバック

バックナンバー

RSS 1.0 RSS 1.0
はてぶカウンタ++
スカウター : M.C.P.C. ―むり・くり―プラスコミュニケーション
フィードメーター - M.C.P.C.