(Perl) Caching cookies in-memory.

Caching cookies in-memory. To automatically save cookies to an in-memory cache, set the CookieDir property equal to the keyword "memory". Also, set the SaveCookies property = 1. If the SendCookies property = 1, then any cached cookies are automatically re-sent with subsequent GETs and POSTs.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$http = new chilkat::CkHttp();

#  Any string unlocks the component for the 1st 30-days.
$success = $http->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $http->lastErrorText() . "\n";
    exit;
}

#  To save cookies to an in-memory cache, set the
#  CookieDir equal to "memory".  Also,
#  set the SaveCookies property:
$http->put_CookieDir("memory");
$http->put_SaveCookies(1);

#  To cause cached cookies to be sent with
#  subsequent HTTP requests, set the SendCookies
# property = 1.
$http->put_SendCookies(1);

#  Any methods that do a GET, POST, etc. will save
#  cookies to the CookieDir (which in this case is an
#  in-memory cache.

$html = $http->quickGetStr("https://www.paypal.com/");

#  To fetch the XML cookie(s) for a domain, call GetCookieXml:

$xmlStr = $http->getCookieXml("paypal.com");

print $xmlStr . "\r\n";

#  It's content will look something like this:

#  

<cookies>
    <cookie key=".paypal.com,/" v="0" secure="yes">
        <navcmd>_home-general</navcmd>
        <HttpOnly />
        <cwrClyrK4LoCV1fydGbAxiNL6iG>9cz...</cwrClyrK4LoCV1fydGbAxiNL6iG>
    </cookie>
</cookies>



#  If another HTTP request is sent, the cookies should
#  be added:
$html = $http->quickGetStr("https://www.paypal.com/");

#  Check the LastHeader property to see the MIME header
#  of the last HTTP request sent.
#  The "Cookie" header field should be present.
print "--- LastHeader ---" . "\r\n";
print $http->lastHeader() . "\r\n";