论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2010-11-01 16:55 |只看该作者 |倒序浏览

小弟需要用Net::Squid:

urge这个模块清除squid缓存，按照cpan的示例，执行程序总是报错，请高人指点，Net::Squid:

urge这个模块的详细使用方法。

文库|博客

兰花仙子

版主

论坛徽章:: 0

2楼 [报告]

发表于 2010-11-01 18:41 |只看该作者

看文档不是写的很清楚么。。
另外什么出错信息也没贴出来。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

li_000828

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2010-11-02 09:05 |只看该作者

回复 2# 兰花仙子

仙子，下面是我按照cpan上的示例写的代码：

#!/usr/bin/perl
use Net::Squid:

urge;
my $purger = Net::Squid:

urge->new({
'squid_servers' => [
{ host => '192.168.1.204', port => '80' },
],
}, 'HTTP');
$purger->purge('http://192.168.1.209/a.jpg');

运行程序后的报错是：
squid_servers must be set! at /usr/local/share/perl/5.10.0/Net/Squid/Purge/HTTP.pm line 17.
其中squid server是192.168.1.204,squid port 是80.

请帮忙开示。