CGI-Perl 基礎編 (その七) クッキー Cookie $ENV{'HTTP_COOKIE'}


\| VB \| SQL \| Perl \| PHP \| ASP \| JSP \| C \| PC \| HP \| FAQ \| フリーソフト \|

CGI-Perl 基礎編 (その七) クッキー Cookie $ENV{'HTTP_COOKIE'}

■クッキー Cookie

#// 準備
  $cknm = 'test';

#// クッキー取得
  if ($ENV{'HTTP_COOKIE'}) {
    *data = GetCookie($ENV{'HTTP_COOKIE'});
    @w = split(/\,/, $data{$cknm});
    $cdata1 = @w[0];
    $cdata2 = @w[1];
  }
  else {
    $cdata1 = '';
    $cdata2 = '';
  }

#// 処理
  ...
  ...
  ...
  ...

#// クッキーセット
  $cdata = "$cdata1\,$cdata2\,";
  ($secg, $ming, $hourg, $mdayg, $mong, $yearg, $wdayg) = gmtime(time + 5184000);
  @mons = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
  @week = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
  $dt= sprintf("%s\, %02d-%s-%04d %02d:%02d:%02d GMT", $week[$wdayg], $mdayg, $mons[$mong], $yearg+1900, $hourg, $ming, $secg);
  print "Content-type: text/html\n";
  print "Set-Cookie: $cknm=$cdata; expires=$dt;\n\n";
  ...
  ...
  ...
  ...

#// 終了
  exit(0);

#//=====================================================================
#//  クッキー取得
#//=====================================================================
sub GetCookie
{
  local($cookie) = $ENV{'HTTP_COOKIE'};
  local(*data, @cookie, $key, $val);

#// クッキー取得
  @cookie = split(/ /, $cookie);
  foreach (@cookie) {
    ($key, $val) = split(/=/);
    $data{$key} = $val;
  }

#// 戻り値セット
  return *data;
}

■CGI-Perl 基礎編資料

■CGI-Perl 基礎実地編資料

■CGI-Perl 応用実地編資料

■PHP 基礎編資料

■PHP + MySQL 編資料


\| VB \| SQL \| Perl \| PHP \| ASP \| JSP \| C \| PC \| HP \| FAQ \| フリーソフト \|