-1

我将WWW::Mechanize::Cached与 Cache::FileCache 一起使用，有时我想从缓存中删除某些 URL，但 WWW::Mechanize::Cached 没有这样的选项。

我查看了源代码，可以看到缓存是使用这一行设置的：

$self->cache->set( $req, freeze( $response ) ) if $should_cache;

所以我尝试使用以下代码从缓存中删除一个项目：

$cache->remove($mech->response->request) or warn "cannot remove $!";

或者

$cache->remove($mech->response->request->as_string) or warn "cannot remove $!";

但我收到警告：“无法删除没有这样的文件或目录”。

我还发现了以下想法，但似乎没有一个有效 https://groups.google.com/forum/?fromgroups#!topic/perl-cache-discuss/M_wXFNL5MdM[1-25]

if ( $want_to_delete_url ) {
    $mech->cache->remove( $url );
}
$mech->get( $url );

http://www.perlmonks.org/?node_id=564208

my $url = "http://www.rulez.sk/headers.php";
my $req = GET $url, 'Accept-Encoding' => 'identity';
$cache->remove($req->as_string) or print "cannot remove $!";
4

1 回答 1

3

它有助于阅读您正在使用的软件的文档。get_keysCHI 使用方法列出所有缓存键，因此您可以简单地遍历它们，直到找到您想要的。

use 5.010;
use CHI qw();
use HTTP::Request qw();
use WWW::Mechanize::Cached qw();

my $cache = CHI->new(
    driver     => 'CacheCache',
    cc_class   => 'Cache::FileCache',
    cc_options => { cache_root => '/tmp' },
);
my $uri = 'http://www.iana.org/domains/example/';
my $mech = WWW::Mechanize::Cached->new(cache => $cache);
$mech->get($uri);
for my $key ($cache->get_keys) {
    my $r = HTTP::Request->parse($key);
    say $r->uri;
    $cache->remove($key) if $r->uri eq $uri;
};
于 2012-08-14T09:32:23.240 回答