perl クッキー日時

3月 13, 2013

$expires = makeexpiresdate(1);

sub makeexpiresdate
{
local $delta;
local ($gmt, @t, @m, @w);

$delta = $_[0];

@t = gmtime(time() + $delta*60*60*24);
@m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
@w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

$gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
$w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);

return $gmt;
}

このブログの人気の投稿

1 4 月 4 日木曜午後8時30分～午後9時00分「中国古典『易経』から学ぶ帝王学」（1）＜全13回＞【易経とは変化の書陰と陽兆しを観る時中と時流元号の出典から】易経研究家…竹村亞希子今回から、古代以降読まれ続けている中国の古典「易経」から古代の知恵を学びます。初回は「易経とは」。占いの書として知られている易経ですが、占いに頼らなくても自分自身で出処進退を判断できる、とも書かれています。易経は「変化の書」ともいわれ、よく読みこむことで四季の変化などを通じて人生に起きる逆境をいかに乗り越えるか、また変化の兆しを見据えることができる能力などが身につくと言われています。 2 4 月 11 日木曜午後8時30分～午後9時00分「中国古典『易経』から学ぶ帝王学」（2）【龍が教える帝王学1 確乎（こ）不抜の志を打ち立てる～潜龍の時代】易経研究家…竹村亞希子易経は龍の成長の話から始まります。第一段階を「潜龍（せんりゅう）」といい、力を蓄える大切な期間だと言われています。自然に例えると「冬」の時代です。この時期は焦って事を起こそうとしたり、世に出ようと前のめりになってはいけないと言われています。今回は、潜龍の時にどのような心持ちでいることが大切か学びます。また「大正」の元号の由来について、関連する「地沢臨（ちたくりん）」についても解説します。 3 4 月 18 日木曜午後8時30分～午後9時00分「中国古典『易経』から学ぶ帝王学」（3）【龍が教える帝王学2 大人との出会い基と型を作る～見龍の時代】易経研究家…竹村亞希子龍は冬の時代「潜龍」の時を経て「見龍」へと成長します。見龍とは、大人（たいじん）の行動に見習う龍のことです。この時期は「基と型」を作る時。乾為天に「見龍田に在り、大人を見るに利ろし」と書かれているように、徹底的に大人を学び、基礎を固める時期だと言われています。潜っていた時期から世に出始めたときどのように過ごしたら良いのかを学びます。 4 4 月 25 日木曜午後8時30分～...

このブログを検索

TAGO.OK

prettify.css