Get data from javascript

[Anonymous Monk]

I'm trying to parse an old site we have. Mojo::DOM makes it easy to get most things, but I can't figure out how to parse some Javascript code. There's a function which has a URL:

replace_image("imageurlhere",imageIDhere);

If I have the whole page in a string how can I find this image URL via a regex?

[Corion]

For any specific Javascript, you can implement the same function in Perl and then get the result that way.

If you want a generic solution for getting the result of arbitrary Javascript code, you will have to run the Javascript. Example environments for Javascript in a web context could be WWW::Mechanize::Firefox and WWW::Mechanize::PhantomJS.

[RonW]

For your specific example (not tested):

/replace_image\(([^,]+)/

or

/replace_image\(["']([^"']+)/

should fetch the URL into $1 for you.

[Anonymous Monk]

The url in the JS is fixed per page, so one per page. I parse lots of pages and want to extract the URL. I tried the code you gave

my $wanted = $page =~ /push_delayed_image\(([^,]+)/;

print Dumper $wanted;

But this prints $VAR - 1; not the URL

[choroba]

You need list context to get the capture groups back.

my ($wanted) = $page =~ /push_delayed_image\(([^,]+)/;
#  ^       ^

[RonW]

Alternately to what Choroba said, you could:

$page =~ /push_delayed_image\(([^,]+)/;
my $wanted = $1;

Often, I'm using a conditional, so will do this:

if ($page =~ /push_delayed_image\(([^,]+)/)
{
    my $wanted = $1;
    ...
}

[Anonymous Monk]

That depends on what the part of the page source where the URLs are stored looks like, show us that?