Pattern Matching

[pedros007]

Hi,

I am trying to extract a list of URl's from a website, and then store them in a file. I have written a regular expression to extract all of the a href links from the site and store them in a file, but I would like to format them better.

Current format when they are extracted:

E.g.
<a href="

http://www.karting.co.uk">Karting

UK</a>

What formatting I would like to do:
"Karting UK", "

http://www.karting.co.uk"

Is this possible? If so do you what is the best way to do it? I have a couple of the SAMS guide to Perl books, but they don't really talk about formatting.

Thank you

Pete

 

[cgilover]

I hate regexes, they give my nightmares and people always correct me on them. But here I go! This is untested.

$string =~ m/<a href="([^"]+)">([^<\/a>]+)<\/a>/gi;

 

[mikevh]

I think this does what you want.

#!perl
use strict;
use warnings;

while (<DATA>) {
    chomp;
    my ($addr, $co) = m|//([^"]+)">(.*?)<|;
    print qq("$co", "$addr"\n);
}

__DATA__
<a href="[URL unfurl="true"]http://www.karting.co.uk">Karting[/URL] UK</a>