Re: small small script using WWW::Mechanize


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: small small script using WWW::Mechanize

by Khen1950fx (Canon)

on Sep 18, 2013 at 01:17 UTC ( [id://1054559]=note: print w/replies, xml )

Need Help??

in reply to small small script using WWW::Mechanize

You almost had it:

#!/usr/bin/perl -l

use strict;
use warnings;
use WWW::Mechanize;

my $url = 'https://www.google.de/';

my $agent = WWW::Mechanize->new;
my $response = $agent->get($url);

my $link = $agent->find_link( text => 'Bilder' );
print 
  "The Google Bilder search URL is: ", Dumper ( $link->url );
[download]