Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Extract Host, Logical Host from URL

by downer (Monk)
on Aug 14, 2007 at 16:25 UTC ( #632539=perlquestion: print w/ replies, xml ) Need Help??
downer has asked for the wisdom of the Perl Monks concerning the following question:

I am searching for an easy way to accomplish this. The host part is easy, just what comes between http:// and the next /. however logical host seems to be tricky. for instance, and should both get mapped to the same logical host, Is there a module that does this? perhaps a set of heuristics which could be used?

Comment on Extract Host, Logical Host from URL
Replies are listed 'Best First'.
Re: Extract Host, Logical Host from URL
by strat (Canon) on Aug 15, 2007 at 05:48 UTC

    see URI for parsing URIs. If you just want to get the "main" domain, you could try something like  join(".", ( split(/\./, $domains ) )[-2,-1] ) (if I understand you correctly)

    Best regards,
    perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8."

Re: Extract Host, Logical Host from URL
by Fletch (Chancellor) on Aug 14, 2007 at 18:00 UTC

    Erm, you need to clarify what you mean by "logical host". resolves to (for me right at this minute), whereas is a CNAME to which is yet another IP. Perhaps if you can expand on what your definition of "logical host" is you can get a decent answer.

Re: Extract Host, Logical Host from URL
by andreas1234567 (Vicar) on Aug 15, 2007 at 05:35 UTC
    You mean something like this?
    use strict; use warnings; print m/^.*?(\w+\.\w+)$/ while(<DATA>); __DATA__
    $ perl -l

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://632539]
Approved by grep
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2015-11-25 16:21 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (682 votes), past polls