Laboratory of Mobile Agricultural Chemicals Searcher
携帯農薬検索実験室

実験成果

  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定  
27 / 34 <前へ | 次へ>

〔8〕CGI::Session::Inspect モジュール
 Hidemi Oya WEB  (05/05/10 22:42)

引用なし
パスワード

[添付]〜添付ファイル〜
・名前 : Inspect.pm
・サイズ : 5.8KB
     CGI::Session モジュール 4.00_xx に inspect メソッドを追加するモジュールです。

  CGI::Session 4.00 から load メソッドが追加されました。このメソッドは、指定した ID のセッションが有効期限を過ぎていれば削除し、有効期限内であればその内容を読み込むと同時に有効期限切れデータをクリアします。しかし、_SESSION_ATIME と _SESSION_REMOTE_ADDR を書き換えてしまうため、セッションデータの確認だけをしたい用途(たとえばセッションの正当性の確認など)には向きません。
  そこで、_SESSION_ATIME と _SESSION_REMOTE_ADDR を書き換えないメソッドを作りました。といっても、load メソッドのほんの一部をモディファイしただけです。

  使い方は、CGI::Session 4.00_xx をインストールし、/CGI/Session ディレクトリ下に Inspect.pm を転送すれば、あとは inspect メソッドを使用するスクリプトに
use CGI::Session;
use CGI::Session::Inspect;
と書くだけです。これで、
$session = CGI::Session->load();
と全く同様に
$session = CGI::Session->inspect();
が使えます。
  もちろん、パラメータも load メソッドと同じです。

  いやいや、それにしても、perl って既存クラスに外部ファイルでメソッドを追加するなんてことができるんですねえ。Delphi では考えられない芸当だなあ…。便利なような不安なような(^_^;)。


〔8〕CGI::Session::Inspect モジュール Hidemi Oya (05/05/10 22:42) [添付]<<<

  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定  
27 / 34 <前へ | 次へ>
ページ:  ┃  記事番号:   
(SS)C-BOARD vv3.8 is Free.