(Perl) Fetch Web Pages from Local Cache

Demonstrates how to keep a local cache to avoid re-fetching web pages.

Note: This example requires Chilkat v9.5.0.91 or later.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$http = chilkat::CkHttp->new();

# Define a cache directory and set the number of levels based on the anticipated size of the cache.
$http->AddCacheRoot("c:/AAWorkarea/httpCache/");

# up to 256 sub-directories under the cache root will be created as needed to hold cached GET's.
$http->put_NumCacheLevels(1);

# Tell the http object to fetch from the cache if possible.
$http->put_FetchFromCache(1);

# Also tell the http object to update the cache with newly fetched pages.
$http->put_UpdateCache(1);

# This HTTP GET should result in a cache file getting created.
$html = $http->quickGetStr("https://www.google.com/");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# The 1st GET was not from cache:
print "Fetched from cache: " . $http->get_LastFromCache() . "\r\n";

# Fetching again will cause the page to be delivered from our local cache.
$html = $http->quickGetStr("https://www.google.com/");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# The 2nd GET is from cache:
print "Fetched from cache: " . $http->get_LastFromCache() . "\r\n";