• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 187
  • Last Modified:

Extracting links from a string

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
NoFrills
Asked:
NoFrills
1 Solution
 
ozoCommented:
sub extractlinks{
    local $_ = shift;
    my @links = ();
    while ( /<\s*A\s+HREF\s*=\s*(["'])(.*?)\1.*?>/gi ) {
        push @links,$2;
    }
    return @links;
0
 
DVBCommented:
use HTML::Parse;
0

Featured Post

Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now