Re: Grepping out strings


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: Grepping out strings

by Zaxo (Archbishop)

on Feb 02, 2005 at 13:13 UTC ( #427234=note: print w/replies, xml )

Need Help??

in reply to Grepping out strings

Assuming protocol and all, it's pretty easy with Regexp::Common:

use Regexp::Common qw/URI/;
my @results;
while ($string =~/$RE{URI}{-keep}/g) {
    push @results, $1;
}
[download]

Your sample seems to omit the protocol and other bits that make a URI. Do you know they are all http? Try looking at the regex from R::C::URI and pick out the host-and-domain part. It will start with two literal slashes and run until the next slash or space, whichever comes first.

After Compline,
Zaxo

Comment on Re: Grepping out strings Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://427234]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others musing on the Monastery: (7)

As of 2023-12-03 00:07 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?