Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
Don't ask to ask, just ask
 
PerlMonks  

Re: Mojo::URL returns incorrect absolute path

by Anonymous Monk
on May 16, 2013 at 17:18 UTC ( #1033872=note: print w/ replies, xml ) Need Help??


in reply to Mojo::URL returns incorrect absolute path

um, how about code without all that useragent/DOM stuff?


Comment on Re: Mojo::URL returns incorrect absolute path
Re^2: Mojo::URL returns incorrect absolute path
by mr_p (Scribe) on May 16, 2013 at 17:45 UTC
    I need to use the dom for the links, don't I?

      I need to use the dom for the links, don't I?

      You say there is a problem with Mojo::URL , that it returns incorrect absolute path , meaning  my $link = Mojo::URL->new($e->{href}); gives you the wrong thing

      So as employ Basic debugging checklist , How do I post a question effectively?, to test your hypothesis :)

      use Data::Dumper, dumper the href, and lets see what it does

      You think Mojo::URL is a proble, fantastic, lets check

        #!/usr/bin/perl -- use strict; use warnings; use Mojo::DOM; use Mojo::URL; my $dom = Mojo::DOM->new( '<div> <base href="http://example.com/foo/page"> <a href="/bar/">/bar/</a> <a href="baz/biz">baz/biz</a> <a href="#burp">#burp bug </a> </div>' ); #~ $dom->at('base[href]')->each( ## grr $dom->find('base[href]')->each( sub { my( $base , $count ) = @_; $base = $base->attrs('href'); if(length $base ){ $dom->find('a[href]')->each( sub { my ( $link, $count ) = @_; my $href = $link->attrs('href'); $href = Mojo::URL->new($href)->base( Mojo::URL->new($base) ) +->to_abs; #~ $href and $link->attrs(href => $href ); $href and $link->attrs( href => "$href" ); return; }, ); } }, ); for my $l ( $dom->find('a[href]')->each ) { print $l->attrs('href'), "\n"; } __END__ http://example.com/bar/ http://example.com/foo/baz/biz http://example.com/foo/page#burp

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1033872]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2014-04-20 21:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (487 votes), past polls