WWW::Mechanize:Image, how do I get the image URL?

hawk__0 · 03-22-2010, 09:07 PM

I've written a script/program but when want it to get the <img src="abc.jpg"> form my input. Essentially I have something like this:
EDIT: This is the chunk of code I'm trying to get extracting images, but this is broken. I can't figure it out!

Code:

foreach my $link ($mech->links) 
{
  if ($link->url =~ /html/)
  {
    if ($filter)
    {
      if ($link->text =~ /$keywords/i)
      {
	  print FILE '<a href=' . "$preurl" . $link->url, '>', $link->text, '</a><br \>';
      }
    }
    else
    {
    print FILE '<a href=' . "$preurl" . $link->url, '>', $link->text, '</a><br \>';
    my $imglink = $preurl . $link->url . "\n";
    print "$imglink";
    
########################
    my $imageref = $mech->find_image( url_regex => qr/'$imglink'/ );
    my $ref_type = undef;
    my $img_link = undef;
    if ($mech->success){
      $img_link=$imageref->url();
      $ref_type=ref $imageref;
    }
    else
    {
    print "No image found\n";
    }

how can I properly extract the image name/tags from this?

I'm using perl

PMP · 03-23-2010, 01:43 AM

Please elaborate what actually is expected from the script

Code:

my $imageref = $mech->find_image( url_regex => qr/'$imglink'/ );

Are these single quote intentional in this regex ?