Re: Publishing Amazon.com Associates Statistics Help

[gam3]

The lay out of the page that you are trying to parse has changed, and it would be ver hard to fix that script. I would suggest using WWW::Mechanize to do the parse.

Here is some code to get you started:

#!/usr/bin/perl

use Crypt::SSLeay;
use WWW::Mechanize;
use URI::Escape;

our $email = 'insert email address';
our $pass  = 'insert password';
our $aftag = 'insert associates tag';

sub main
{
    my $url = q[https://associates.amazon.com/];
    my $mech = WWW::Mechanize->new() or die;
    my $res = $mech->get($url);

    print "res: ", $res, "\n";
    print $mech->status(), "\n";
    use Data::Dumper;

    $res_2 = $mech->submit_form(
        form_name => 'sign-in',
        fields      => {
            email    => $email,
            password => $pass,
        }
    );
    my $orders_report = $mech->follow_link( url_regex => qr/earningsRe
+port/i );
    print $orders_report;
}

main();