Hi Meir.
As I said, I'm looking for LWP::UserAgent answer, and not WWW::Mechanize.
btw, the way that you deal with the optional cookie jar is weird for me.
why not just let the caller to create a HTTP::Cookies himself, or just
give you undef?
HTTP::Cookies have a 'clear' function if that is what you are looking for...
Shmuel.
On 2011/08/04 22:33, Meir Guttman wrote:
> Hi shmuel,
>
> My experience is with GET, not POST, but I think that the cookies are
> handled the same.
>
> Here is a utility I often use in many robots:
>
> # ----------------------- Preparing a "user-agent" -----------------------
>
> use strict;
> use WWW::Mechanize;
> use HTTP::Cookies;
> use LWP::ConnCache;
>
> sub mech_user_agent {
> # In at least one application, we need to clear the cookie jar before
> # each new download. Therefore, we pass to the sub a reference to an
> # external scalar that holds the cookie object and will therefore be
> # able to clear it. Here it might be good idea to make the external
> # cookie_jar optional. Not all applications might need access to it.
>
> my ($cookie_jar_ref) = @_;
>
> # Create a session cookies repository. This is the key for server
> # interaction. It is essential to obtain a session cookie, store it
> # in a "cookie jar" (variable) and keep it across requests. It locks
> # the requested dataset at the server which is then exported to TSV
> # (or CSV or Excel 2003).
>
> $$cookie_jar_ref = HTTP::Cookies->new or return undef;
>
> # Creating a session cache:
> my $conn_cache = LWP::ConnCache->new or return undef;
>
> # Create a Mechanize session with our session cache and cookie jar
>
> my $mech = WWW::Mechanize->new(
> conn_cache => $conn_cache,
> cookie_jar => $$cookie_jar_ref,
> onerror => \&do_next,
> ) or return undef;
> # Add some headers to emulate a Firefox Browser.
> $mech->add_header('User-Agent','Mozilla/5.0(Windows;'
> .'U; Windows NT 5.1;'
> .'es-ES; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12');
> $mech->add_header('Accept','text/html,application/xhtml+xml,'
> .'application/xml;q=0.9,*/*;q=0.8');
> $mech->add_header('Accept-Language','en-us;q=0.8,en;q=0.3');
> $mech->add_header('Accept-Encoding','gzip,deflate');
> $mech->add_header('Accept-Charset','utf-8;q=0.7,*;q=0.7');
>
> return $mech;
> }
>
> # ----------- bypassing the WWW::Mechanize default error trap -----------
> # It simply returns an 'undef' so the script doesn't croak. I later
> # check for success and if not loop again in another $attempt.
>
> sub do_next() {
> return undef;
> }
>
> return 1;
>
> # -----------------------------------------------------------------------
>
> I hope it helps you
>
> Meir
>
> _______________________________________________
> Perl mailing list
> [email protected]
> http://mail.perl.org.il/mailman/listinfo/perl
>
_______________________________________________
Perl mailing list
[email protected]
http://mail.perl.org.il/mailman/listinfo/perl
