Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Extracting links from a string

Posted on 2002-06-30
2
Medium Priority
?
186 Views
Last Modified: 2010-03-05
Ok theres regular expression that will extract links from a url or file such as
#!/usr/bin/perl -n -00
while ( /<\s*A\s+HREF\s*=\s*(["'])(.*?)\1.*?>/gi ) {
         print "$2\n";
}

I need a sub routine that I can pass a string and extract the links from a string. Is there anyway I can adapt Tom Christiansen work, or does anyone know how I can do this?
Cheers
Ryan
0
Comment
Question by:NoFrills
2 Comments
 
LVL 85

Accepted Solution

by:
ozo earned 200 total points
ID: 7120858
sub extractlinks{
    local $_ = shift;
    my @links = ();
    while ( /<\s*A\s+HREF\s*=\s*(["'])(.*?)\1.*?>/gi ) {
        push @links,$2;
    }
    return @links;
0
 
LVL 3

Expert Comment

by:DVB
ID: 7134631
use HTML::Parse;
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Six Sigma Control Plans

876 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question