Mark Stosberg tag:blogs.perl.org,2009-11-03:/users/mark_stosberg//188 2012-08-22T13:49:01Z A blog about the Perl programming language Movable Type Pro 4.38 Thanks to Olaf Alders for HTTP::CookieMonster tag:blogs.perl.org,2012:/users/mark_stosberg//188.3723 2012-08-22T13:44:53Z 2012-08-22T13:49:01Z Mark Stosberg http://mark.stosberg.com/ The old, horrible way, to get a cookie by name with LWP::UserAgent or WWW::Mechanize:

my $cookie = $a->cookie_jar->{COOKIES}->{".$SITE_DOMAIN"}->{'/'}->{$COOKIE_NAME};

The new way, with HTTP::CookieMonster:

my $monster = HTTP::CookieMonster->new( cookie_jar => $a->cookie_jar );
my $cookie = $monster->get_cookie($COOKIE_NAME);

Much better. Thank you. I’d love to see something like this built right into WWW::Mechanize.

]]>