Gossamer Forum: General: Perl Programming: parse

May 3, 2003, 4:01 PM

Enthusiast (567 posts)

May 3, 2003, 4:01 PM

Post #1 of 4

Shortcut

parse_url

Hi,

I'm looking for a perl snippet that can do what the host part of parse_url (PHP) does! Who can help me out?

Code:

parse_url -- Parse a URL and return its components
http://www.php.net/manual/en/function.parse-url.php

Example:

$referer = parse_url(http://www.domain.com/dir/subdir/page.html);
$referer = $referer[host];

$referer will print: www.domain.com

Currently I'm using the following snippet... But it isn't parse url ;-)

Code:

my $referer = "http://www.domain.com/dir/subdir/page.html"
$referer =~ s|^http://([^/]+).*|$1|i;

Greeting,

cK

May 3, 2003, 4:51 PM

Paul

Veteran (19537 posts)

May 3, 2003, 4:51 PM

Post #2 of 4

Shortcut

Re: [cK] parse_url In reply to

Try this on for size :) ....I'm not saying it's perfect as it's after midnight and I just whipped this up, but give it a try.

Code:
sub parse_url { 
#--------------------------------------- 
# Pass in a URL. Hashref is returned. 

      my $url     = shift; 
      my (@parts) =~ $url =~ m|^([^:]+)://([^/]+)(?:(/.+?/?)([^/]+)?)?$|; 
      my (%slice) = (); 
      @slice{qw/protocol domain path file/} = @parts; 
      return \%slice; 
}

You'd call it like:

Code:
my $parts = parse_url("http://www.aol.com/foo/bar/index.html");

Then you can do stuff like...

Code:
my $domain = $parts->{domain};

May 4, 2003, 2:55 PM

Enthusiast (567 posts)

May 4, 2003, 2:55 PM

Post #3 of 4

Shortcut

Re: [Paul] parse_url In reply to

Cool !!!

Only I'm getting no output at all.... Am I doing something stupid? Tested it like:

Code:
#!/usr/bin/perl 

use CGI::Carp qw(fatalsToBrowser); 

sub parse_url {  
#---------------------------------------  
# Pass in a URL. Hashref is returned.  

      my $url     = shift; 
      my (@parts) =~ $url =~ m|^([^:]+)://([^/]+)(?:(/.+?/?)([^/]+)?)?$|; 
      my (%slice) = (); 
      @slice{qw/protocol domain path file/} = @parts; 
      return \%slice; 
} 

my $url = parse_url("http://www.aol.com/foo/bar/index.html"); 

print "Content-type:text/html\n\n"; 
print "$url->{protocol}<br>"; 
print "$url->{domain}<br>"; 
print "$url->{path}<br>"; 
print "$url->{file}<br>";

To be honest: only the protocol and domain part is *really* important, the rest is more handy and cool.

May 4, 2003, 4:34 PM

Paul

Veteran (19537 posts)

May 4, 2003, 4:34 PM

Post #4 of 4

Shortcut

Re: [cK] parse_url In reply to

Whoops there's a typo.

Change:

my (@parts) =~

to...

my (@parts) =