gpt4 book ai didi

perl - 使用 Perl 检查 cookie

转载 作者:可可西里 更新时间:2023-11-01 16:38:13 25 4
gpt4 key购买 nike

我已经编写了一个简短的 Perl 脚本来列出网站的当前 cookie,但不知何故它报告 cookie 的 domainexpires 为空。 我哪里做错了,或者我误解了 cookie 背后的机制?

我的最终目标是能够通过一个按钮删除现有的 cookie。

脚本已上线here , 但如果您访问我的 blog 可能会有所帮助首先,实际上设置了一些 cookie。这是我的源代码:

use warnings;
use strict;
use CGI::Cookie;

my $table;
my %cookies = CGI::Cookie->fetch;
if ( keys %cookies ) {
$table .= "<table border=\"3\" cellpadding=\"5\">";
$table .= "<caption>COOKIES</caption>";
$table .= "<tr><th>Name</th><th>Domain</th><th>Path</th><th>Expires</th>
<th align=\"left\">Value</th></tr>";
foreach my $cookie ( keys %cookies ) {
$table .= "<tr>";
$table .= "<td>$cookie</td>";
$table .= "<td>" . $cookies{ $cookie }->domain() . "</td>";
$table .= "<td>" . $cookies{ $cookie }->path . "</td>";
$table .= "<td>" . $cookies{ $cookie }->expires . "</td>";
$table .= "<td>" . $cookies{ $cookie }->value . "</td>";
$table .= "</tr>";
}
$table .= "</table>";
}

print "Content-Type: text/html\n\n";
print "<html>\n";
print "<head></head>\n";
print "<body>\n";
print "$table";
print "</body>\n";
print "</html>\n";

不管我安装脚本的各个网站上的各种 cookie,输出看起来像这样,域和过期总是空的:

+-----------------------------------------------------------------------------------------+                   
| Name | Domain | Path | Expires | Value |
|---------------+--------+------+---------+-----------------------------------------------|
| bb2_screener_ | | / | | 1379007156 2001:980:1b7f:1:a00:27ff:fea6:a2e7 |
+-----------------------------------------------------------------------------------------+

最佳答案

浏览器不会向服务器提供有关它们发送的 cookie 的任何元信息。他们甚至没有办法发送它。浏览器发送的内容如下所示:

Cookie: a=b; c=d; e=f

关于perl - 使用 Perl 检查 cookie,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18770910/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com