抑制“日子太大” Perl LWP::UserAgent 中的警告

Question

我有一个相当简单的 Perl 脚本，使用 LWP::UserAgent 模块通过重定向跟踪 URL，找到最终的目标 URL，然后将其存储在我们的 MySQL 数据库中。问题是，脚本有时会报告如下所示的警告：

Day too big - 25592 > 24855
Sec too small - 25592 < 74752
Sec too big - 25592 > 11647
Day too big - 25592 > 24855
Sec too small - 25592 < 74752
Sec too big - 25592 > 11647

警告没有提供任何其他详细信息来说明为什么会发生这种情况或哪个模块导致了问题，但我很确定它与LWP::用户代理。

我使用以下代码初始化代理：

use LWP::UserAgent;
my $ua = LWP::UserAgent->new(cookie_jar => { },requests_redirectable => [ ]);
$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:9.9.9.9) Gecko/20079999 Firefox/2.0.0.1');
$ua->timeout(10);

我在线搜索，发现的唯一结果是以下线程，该线程从未解析http://www.mail-archive.com/[电子邮件受保护]/ msg06515.html。线程作者认为这些警告在某种程度上与 LWP::UserAgent 模块捕获的 cookie 日期有关。

该警告似乎不会影响脚本，但我希望能够帮助您更好地理解可能导致此问题的原因以及如何解决该问题或至少抑制警告消息的建议。预先感谢您的帮助！

Answer 1

如果升级不适合您，您当然可以始终使用本地 $SIG{__WARN__} 处理程序过滤掉警告。

{
    local $SIG{__WARN__} = sub {
        warn @_ unless $_[0] =~ m(^.* too (?:big|small));
    };
    # your code here.
}

Answer 2

请参阅更改：

2009-10-06 发布5.833

吉斯尔·阿斯 (5)：

• 处理在很远的将来就会过期的 Cookie [RT#50147]
• 处理在纪元或之前过期的 Cookie [RT#49467]

看起来您需要升级到LWP 的最新版本。