perl 设置cokie

要在 Perl 中设置 Cookie，可以使用 CGI 模块。以下是一个示例代码：

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

# 创建一个新的 Cookie
my $cookie = cookie(-name=>'username', -value=>'JohnDoe', -expires=>'+1h');

# 输出 Cookie
print header(-cookie=>$cookie);

在上面的代码中，`cookie()` 函数用于创建一个新的 Cookie 对象，然后使用 `header()` 函数将 Cookie 发送到客户端浏览器。`-name` 参数用于设置 Cookie 的名称，`-value` 参数用于设置 Cookie 的值，`-expires` 参数用于设置 Cookie 的过期时间。`+1h` 表示 Cookie 将在一小时后过期。

相关问题

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 中的值

要在 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` 变量将为空字符串。