perl 获取set cookie 中的值

要在 Perl 中获取 Set-Cookie 中的值，可以使用 `CGI` 模块中的 `cookie()` 函数。例如，以下代码从客户端请求中获取名为 `UserID` 的 Cookie 值：

#!/usr/bin/perl
use CGI qw/:standard/;

# 获取名为 UserID 的 Cookie 值
my $userID = cookie('UserID');

# 输出获取到的 Cookie 值
print "UserID: $userID\n";

在上面的代码中，`cookie()` 函数用于获取客户端请求中的 Cookie 值，`UserID` 是 Cookie 的名称，`$userID` 变量保存了获取到的 Cookie 值。如果客户端请求中不存在名为 `UserID` 的 Cookie，则 `$userID` 变量将为空字符串。

相关问题

perl 获取Set-Cookie cookie的值

可以使用 Perl 的 HTTP::Cookies 模块来获取 Set-Cookie 中的 cookie 值。具体步骤如下：

1. 安装 HTTP::Cookies 模块：

cpan HTTP::Cookies

2. 使用 HTTP::Cookies 模块解析 Set-Cookie 头部信息：

use HTTP::Cookies;

my $cookie_jar = HTTP::Cookies->new();
$cookie_jar->extract_cookies($response);
my @cookies = $cookie_jar->as_string();

其中 $response 是 HTTP 响应对象，可以从中获取 Set-Cookie 头部信息。

3. 解析 Cookie 值：

my %cookie_hash;
foreach my $cookie (@cookies) {
    if ($cookie =~ m/^(.*?)=(.*?);/) {
        $cookie_hash{$1} = $2;
    }
}

my $cookie_value = $cookie_hash{'cookie_name'};

其中 cookie_name 是要获取的 cookie 名称。这样就可以获取到 Set-Cookie 中指定名称的 cookie 值了。

perl Set-Cookie:UserID Set-Cookie:Password Set-Cookie:Expires Set-Cookie:Domain Set-Cookie:Path

要在 Perl 中设置多个 Cookie，可以使用 `CGI` 模块，并在 `header()` 函数中使用多个 `-cookie` 参数。例如，以下代码设置了名为 `UserID`、`Password` 的 Cookie，以及名为 `Expires`、`Domain`、`Path` 的 Cookie 属性：

#!/usr/bin/perl
use CGI qw/:standard/;

# 设置多个 Cookie 和 Cookie 属性
print header(
  -cookie=>[
    'UserID=XYZ',
    'Password=123',
    'Expires=Sat, 01-Jan-2022 00:00:00 GMT',
    'Domain=.example.com',
    'Path=/'
  ]
);

在上面的代码中，`-cookie` 参数是一个数组，用于设置多个 Cookie 和 Cookie 属性。`Domain` 参数用于设置可以访问 Cookie 的域名，以 `.` 开头表示可以被所有子域名访问，`Path` 参数用于设置可以访问 Cookie 的页面路径。