Perlコーディング初心者質問スレ Part 57

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

553:nobodyさん
 08/05/24 14:14:00 
>>551 
正直、目的に対して技術が足りなすぎる。イヤミじゃなくてね。 
トラブル起こす前に、オライリーのCGIプログラミング読破オススメ。

554:nobodyさん
 08/05/24 14:18:21 
>>552 
＞受け取るソースがsession.cgiだと認識してるのですが…。 
少なくてもこのソース中でセッションIDはどこにも発行してないでしょ？ 
後は調べなさい。

555:554
 08/05/24 14:19:15 
ごめんミスった。 
 
　×　＞受け取るソースがsession.cgiだと認識してるのですが… 
　○　＞データを受け渡す側のソースが>>543で

556:543
 08/05/24 14:19:38 CztaXqIN
すいません。もう少し勉強しなおしてきます。 
みなさん、有難うございましたー・・・

557:543
 08/05/24 14:23:19 CztaXqIN
>>554 
あ、ソースの一部分しか乗せてなかったためです！ 
 
use CGI::Session qw/-ip_match/;  
 
my $session=CGI::Session->new(undef,undef,{Directory=>'./session'}); 
$session->expire('+1m'); #有効期限は1分間 
$session->param('name','john'); #セッション経由で引き渡す項目と値 
 
my $cgi=CGI->new; 
 
print $cgi->header(-charset=>'UTF-8', 
                   -cookie=>$cgi->cookie(-name=>'CGISESSID', 
                                         -value=>$session->id, 
                                      -expires =>  '+3M')), 
                   #cookieにセッションidを保管 
      $cgi->start_html(-lang=>'ja', 
                       -encoding=>'UTF-8', 
                       -title=>'CGI.pm使用/cookie'), 
      $cgi->p('session id: '.$session->id.'<br/>', 
              'name: '.$session->param('name').'<br/>',

次ページ