Skip to content

Instantly share code, notes, and snippets.

@bg1bgst333

bg1bgst333/CGI__Session.cgi

Created April 13, 2025 02:17
Show Gist options
  • Save bg1bgst333/2ef660f1b1d17b1b8cdf5810c9b649e6 to your computer and use it in GitHub Desktop.
Save bg1bgst333/2ef660f1b1d17b1b8cdf5810c9b649e6 to your computer and use it in GitHub Desktop.
Download ZIP
CGI::Session::flush
Raw
CGI__Session.cgi
#!/usr/bin/perl
use strict; # 厳密な文法チェック.
use CGI; # CGI
use CGI::Session; # Session
# 標準出力のバッファ無効化.(これやらないとsleep中に表示なんてできない.)
BEGIN{ $| = 1; }
# CGIオブジェクトの作成.
my $q = CGI->new; # CGI::newでCGIオブジェクトを生成し, $qに格納.
# セッション復元.
my $session = CGI::Session->new(undef, $q); # newで生成.
# パラメータをセット.
$session->param('username', 'taro'); # paramで'username'に'taro'をセット.
# セッションIDを取得.
my $sid = $session->id;
# 表示.
print $q->header();
print "<html><body>";
print "<p>session id: $sid</p>";
print "<p>sleep...</p>";
print "<p><a href='read_session.cgi?CGISESSID=".$sid."' target='_blank'>check</a></p>";
print "</body></html>";
# 10秒休止.
sleep(10);
# フラッシュ.
$session->flush();
Raw
read_session.cgi
#!/usr/bin/perl
use strict; # 厳密な文法チェック.
use CGI; # CGI
use CGI::Session; # Session
# CGIオブジェクトの作成.
my $q = CGI->new; # CGI::newでCGIオブジェクトを生成し, $qに格納.
# パラメータ取得.
my $sid = $q->param('CGISESSID');
# セッション復元.
my $session = CGI::Session->load(undef, $sid); # loadで復元.
# パラメータ取得.
my $username = $session->param('username') || '(empty)';
# 表示.
print $q->header();
print "<html><body>";
print "<p>username: ".$username."</p>";
print "</body></html>";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment