セッションがうまくできません
#!c:/Perl/bin/Perl.exe
------セッションを作成する-------
use CGI::Session;
$session = new CGI::Session(undef,undef,{Directory=>'/tmp'});
$session->expire('+50s');
$session->param("membername","テスト");
$session->flush();
print "Location: ./test.pl\n\n";
------セッションを読み込む-------
#!c:/Perl/bin/Perl.exe
print"Content-type: text/html\n\n";
use CGI;
use CGI::Session;
$q = new CGI();
$session = CGI::Session->new(undef,$q,{Directory=>'/tmp'});
$params = $session->param_hashref();
print$params->{"message"};
$session->flush();
何もブラウザに表示がされません、どこが間違ってるのでしょうか?
お礼
ありがとうございます! やってみたのですが、音がでません・・・。 dxdiag.exeのサウンドテストでは音は聞こえたのですが・・・。
補足
どうもありがとうございます!