Fieds_labo1
perl-クッキー
最終更新:
fieds_labo1
-
view
perl クッキー
1.クッキー
- 書き込み
- 読み込み
my $s_cookies = $ENV{'HTTP_COOKIE'};
if($s_cookies != "") {
@c_pairs = split(/;/, $s_cookies);
foreach my $pair (@c_pairs) {
my ($name, $value) = split(/=/, $pair);
$name =~ s/ //g;
$COOKIE{$name} = $value;
}
if($s_cookies != "") {
@c_pairs = split(/;/, $s_cookies);
foreach my $pair (@c_pairs) {
my ($name, $value) = split(/=/, $pair);
$name =~ s/ //g;
$COOKIE{$name} = $value;
}
- 削除