Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Determining foreign port number

by zigster (Hermit)
on Mar 05, 2001 at 23:12 UTC ( [id://62320]=note: print w/replies, xml ) Need Help??


in reply to Determining foreign port number

I hope I understand your question correctly, if I have missed the point msg me or follow up and I will try and help some more.

Its coded in the url http://<Host:Port>/Resource .. parse the url with a regexp or use URI::URL Which is part of libwww-perl I have not used URI::URL before but a quick search finds that it has been mentioned on pm lots of times .. checkout super search search for URI::URL.

You are looking for something like (ripped from the pod)

use URI::URL; $url = new URI::URL 'http://www.perl.com/%Euser/gisle.gif'; # Retrieving Network location (netloc) components: $user = $url->user; $password = $url->password; $host = $url->host; $port = $url->port; # returns default if not defined
There are lots of other permutations so take a look at the links above.
--

Zigster

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2024-03-28 12:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found