[kansaipm] Re: Apache::Sessionで新規のセッションIDを指定できますか？

[KAWAI,Takanori]

川合孝典です。

----- Original Message -----
From: "Tatsuhiko Miyagawa" <miyagawa at edge.co.jp>
To: <kansai-pm-list at pm.org>
Sent: Tuesday, May 21, 2002 2:43 PM
Subject: Re: [kansaipm] Apache::Sessionで新規のセッションIDを指定できますか
？


> 宮川です。
（中略）
> たしかできないです。データストアを無理やり先につくっておけばできないこ
> ともないですが。
そんな無理矢理な作り方の例：

(1)まずセッションIDを1にするスクリプトを作成し、実行します。
　このとき表示される元のセッションIDに注意してください。：
[tas.pl]
#!/usr/bin/perl
use strict;
use Apache::Session::File;
my %session;
tie %session, 'Apache::Session::File', undef, {
        Directory => './sessions',
        LockDirectory => './lock',
  };
print $session{_session_id}, "\n";
$session{_session_id}=1;
untie %session;

(2)sessionsディレクトリにある(1)で表示されたIDのファイル名を1に
　変更します。
(3)後はそのまま実行！

[実行例]
[kawait at lins kawait]$ perl tas.pl
0afccba67e86b22ced4002d8c8f31d4a
[kawait at lins kawait]$ cd sessions
[kawait at lins sessions]$ mv 0afccba67e86b22ced4002d8c8f31d4a 1
[kawait at lins sessions]$ cd ..
[kawait at lins kawait]$ perl tas1.pl
Your Access  : 1
Your Session : b461c5e146a877f9772a4b54ac80ffc0
[kawait at lins kawait]$ perl tas1.pl 1
Your Access  : 1
Your Session : 1
[kawait at lins kawait]$ perl tas1.pl 1
Your Access  : 2
Your Session : 1
[kawait at lins kawait]$ perl tas1.pl 1
Your Access  : 3
Your Session : 1

かなり強引な使い方ですね、これは。
===================================================
川合 孝典 (Hippo2000)
   DBI日本語メーリングリスト管理人、Kansai.pm所属
   kwitknr at cpan.org GCD00051 at nifty.ne.jp
   http://member.nifty.ne.jp/hippo2000、http://www.hippo2000.info/
「Perlドキュメント日本語訳」メーリングリストがはじまりました
http://www.freeml.com/ctrl/html/MLInfoForm/perldocjp@freeml.com
===================================================