Hello Monks,

I am trying to check the onclick attribute of anchor tags with WWW::Mechanize::Firefox. Here is what I have explored so far...

At first, I thought I'd check the attrs property of WWW::Mechanize::Link. Something like this:

my @links = $mech->find_all_links(url_regex => 'asdf.html');

foreach my $link (@links) {
    print $link->attrs()->{onclick};
}

[download]

Unfortunately, that did not work. Further exploration yielded the reason--the make_link subroutine in WWW::Mechanize::Firefox always just initializes attrs with an empty hashref.

No problem, I thought--maybe I could just patch that functionality in. Not much success with that either, though--I'm having a tough time understanding how the MozRepl::RemoteObject module works. I thought something like this sound work:

my @links = $mech->find_all_links_dom(url_regex => 'asdf.html');

foreach my $link (@links) {
    print $link->{onclick};
}

[download]

Or:

my @links = $mech->find_all_links_dom(url_regex => 'asdf.html');

foreach my $link (@links) {
    print $link->__attr('onclick');
}

[download]

Or at least:

my @links = $mech->find_all_links_dom(url_regex => 'asdf.html');

foreach my $link (@links) {
    # Neither of the following work either...
    print Dumper($link->__keys);
    print Dumper(keys %$link);
}

[download]

This is the error message I receive. It seems like a Javascript error, but that's all I can surmise...

MozRepl::RemoteObject: TypeError: obj.hasOwnProperty is not a function
+ at /usr/local/share/perl/5.10.1/MozRepl/RemoteObject.pm line 1509

[download]

What am I missing? Is there a simpler way to go about this?


EDIT:

Solved! Just to clarify, I was looking for just the text of the onclick attribute of links. When I was doing $link->{onclick}, I was getting the compiled Javascript of the onclick attribute. To get just the simple text, all I had to do was $link->getAttribute('onclick').

Thanks all!

In reply to [Solved] Checking onclick attribute of an anchor tag with WWW:::Mechanize::Firefox by Riales

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.