Cookie の有効期限の指定方法

　初歩から始める初心者向けPerl-CGI講座　■　


	`CGI`の設置方法
	フリーで配布されている`CGI`を設置する際の手順や注意事項などの説明です。

	`CGI`作成の初歩
	初めて`CGI`を作る方向けの手順を簡単な例で説明しています。

	`CGI`作成ヒント集
	こういう事をする時は、どのように行えばいいのか？など具体的な事例を紹介します。

	`CGI`の設置に関する用語
	`CGI`の作成に関する用語
	`CGI`の設置や作成時に使われている用語や関連知識を掲載しています。

	設置に関するFAQ
	作成に関するFAQ
	設置や作成をする際に起こりがちなトラブルの説明と、よくある質問とその回答を掲載しています。

Cookie の有効期限の指定方法（Cookie で使える GMT日時を出す）

Cookie の有効期限では expires=Tue, 1-Jan-2030 00:00:00 GMT　などと指定しましたが、
これを求めるには、 time関数で得られた秒数を gmtime関数で整形、さらに Cookie で使える
書式に sprintf で整形しなくてはなりません。
まずはその整形をしてみます。

下のサンプルソースは実行すると、現在のGMT時刻を Cookieで使える書式で表示します。
日付を生成する部分はサブルーチンになっており、 $gm = &gtimeget();　で呼び出す部分
で引数を与えると、与えた分の秒数を加算した時刻を返します。

実行結果

Sat, 9-Oct-2004 08:21:10 GMT

【使用例】
例えば一週間後のGMT日付を出したい時は、サブルーチンで処理する前に一週間分の秒数を計算し、
それをサブルーチンの引数として与えます。
一週間分の秒数は　60*60*24*7　で計算できます

1分	60
10分	60*10
1時間	60*60
3時間	60603
１日	606024
一週間	606024*7
一ヶ月	606024*30
三ヶ月	606024303

Cookie の有効期限の指定方法（上記サブルーチンを使ってみる）

その１で紹介したサブルーチンで Cookieで使える日付の書式が得られましたので、これを
Cookieの発行と読み取りで紹介したサンプルソースに組み込んで利用してみます。

【使用前のサンプルソース】

【使用例】
例えば一週間後のGMT日付を出したい時は、サブルーチンで処理する前に一週間分の秒数を計算し、
それをサブルーチンの引数として与えます。
以下のサンプルソースは実行すると、実行した日から一週間後の有効期限を設定したCookie を発行します。

#!/usr/local/bin/perl

$aaa='AAA'; #クッキーに書き込むデータを変数へセット1
$bbb='BBB'; #クッキーに書き込むデータを変数へセット2

$cooktime = 60 * 60 * 24 * 7;
$cooktime = &gtimeget($cooktime);

#クッキーの書き出し
print <<"HTML";
Content-type: text/html
Set-Cookie: data1=$aaa; expires=$cooktime;
Set-Cookie: data2=$bbb; expires=$cooktime;
HTML

print <<"HTML";
Content-type: text/html

<HTML>
<HEAD>
<TITLE>test</TITLE>
</HEAD>
<BODY>
$ENV{'HTTP_COOKIE'}
</BODY>
</HTML>
HTML

exit;

#整形した時間を返すサブルーチン -------------------------------------------
sub gtimeget
{
my $timesft = $_[0];
#引数で与えられた秒数をtimeで得られる秒数へ足す
my $sfttime = time + $timesft;
#time関数で得られた数値をgmtime関数で整形し各変数に入れる
my ($sec,$min,$hour,$mday,$mon,$year,$wno) = gmtime($sfttime);
#曜日は 0～6 の値が返されるので配列で扱う
my @wdays = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
#月で得られる値を文字列に変える為、こちらも配列で扱う
my @mons = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
#得られた日付をCookie でそのまま使える書式に整形する
my $nitizi = sprintf("%s, %d-%s-%d %02d:%02d:%02d GMT",$wdays[$wno],$mday,$mons[$mon],$year+1900,$hour,$min,$sec);
return $nitizi;
}

設定された Cookie は IEの場合、ブラウザ上部のメニューから【ツール】 → 【オプション】 → インターネット
一時ファイルの項の【設定】 → 【ファイルの表示】で表示されますので、有効期限の欄を確認して下さい。
キャッシュされた別のファイルなどがあると、どれが Cookie なのか分かりにくいですので、確認する前に
一時ファイルや別のクッキーデータなど削除しておくと探しやすいと思います。

関連項目

・　CGIの作成に関する用語
・　CGI作成に関するFAQ