Extract a substring between two elements

[tcouto]

Hello there

I'm new with Perl... I need to extract a substring between two elements.
I'm working with urls and I need to get the text between "http://" and the first "/" in that string.

For example, in the following string:

http://www.example.com/test/index.html

I want to retrieve

www.example.com

How can I do that? Thanks!!!

[nithinpes]

What did you try? Post the regex that you tried.

[tcouto]

I'm currently removing the "http://" with the substring function, since it's a constant number of characters

sub get_blogname{ 
my ($blogurl) = @_;
my $blogname = substr($blogurl, 7);
 
return $blogname;
}

I just don't know how to retrieve all the characters in the $blogname until the first "/" appears

[KevinADC]

one possibility:

sub get_blogname{ 
   my ($blogurl) = @_;
   my ($blogname) = $blogurl =~ m|^(?:http://)?([^/]+)|i;
   return $blogname;
}

[Ganon11]

Or possibly:

my $url =~ m#//(.*?)/#;
my $blog_url = $1;

[eWish]

Unless the data you are interested in is fixed length then substr is not the way to go. I would suggest that you use one of the other suggestions. However, if it is a fixed length the substr would be fine.

my $url = 'http://www.somedomain.com/somepage.html';
print substr($url,7,18);

Or in a subroutine.

print &get_url('http://www.somedomain.com/somepage.html');
 
sub get_url {
    croak "You did not pass the proper number of arguments\n" if @_ != 1;
    return substr($_[0],7,18);
}

--Kevin

[cjayaram2001]

We can do this way also

$text = "http://www.example.com/test/index.html";
 
$text =~s/http:\/\///i;
 
$split1 = (split /\//,$text)[0];
print $split1;

Check this out