Rajesh Dorairajan wrote:
>
> I am using WWW::Mechanize to create a configuration file from a website and
> my script needs to go through a web-page and copy a specific links into a
> configuration file. I am using $m->links method that returns the list of
> links from a page. However, I am not able to get the fully qualified URL
> such as http://www.domain.com/dir1/dir12/file1.html. Instead I get
> /dir1/dir12/file.html. Please forgive me if this doesn't make sense. I am
> giving the code below for more clarity:
>
> my $obj = WWW::Mechanize->new();
> my $url = "http://www.domain.com/dir1";;
> .
> .
>
> for my $link ( @links ) {
> my $url = $link->url;
> $obj->get ( $url );
> my @urls = $obj->links;
>
>
> $obj->get( $urls[1]->url, ":content_file"=>"$dir/tmp/tmpfile.cert" );
> .
> .
>
> print CRL "[INPUT_SECTION_$count]\n";
> print CRL "LOCATION=".$urls[2]->url."\n\n"; #This is where I need the
> fully qualified URL instead of the relative URL that I get currently
> $count++;
> }
>
> I looked up a lot on the web before sending this mail. I am not able to find
> any documentation that points to this. Any help will be deeply appreciated.
Hi Rajesh.
I'm puzzled by your code. What's in your @links array that has a 'url' method?
And I don't know of a WWW::Mechanize::get method that takes two parameters.
I have the latest WWW::Mechanize from CPAN. Are you doing something
inscrutably clever?
Anyway, the answer is to use the URI::URL module (already 'require'd by
WWW::Mechanize) to build the absolute URL from the href= field of the anchors
like this:
use strict;
use warnings;
use WWW::Mechanize;
my $mech = new WWW::Mechanize;
$mech->get('http://search.cpan.org/');
foreach (@{$mech->links}) {
print URI::URL->new_abs($_->[0], $mech->base), "\n";
}
I hope this helps.
Happy Christmas!
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
