|Problems? Is your data what you think it is?|
Grepping out stringsby existem (Sexton)
|on Feb 02, 2005 at 12:50 UTC||Need Help??|
existem has asked for the wisdom of the Perl Monks concerning the following question:
I basically have a long string, for example.<tr><td id=tpa1 nowrap bgcolor=#e5ecf9 height=40 onMouseOver="ss('go to www.mysite.com')" onMouseOut="cs()" class=ch onClick="ga(this,event)"><a id=pa1 href=/pagead/iclk?adurl=http://www.mysite.com&sa=l&ai=BRqXfIssAQqj8EcfeRIXF7OQD2sdO4pmhjQGsqeEKgPEECAAQARgBKAI4AECKFkifOZgBgkugAZDsuf8DyAEB onMouseOver="return ss('go to www.mysite.com')" onMouseOut="cs()"><b>MySite</b> wine merchant</a><font size=-1><br><span class=a>www.mysite2.com</span> Award winning wines at great prices Money back satisfaction guarantee</font></td><td id=spa1 class=ch bgcolor=#e5ecf9 height=40 align=right valign=top onMouseOver="ss('go to www.mysite2.com')" onMouseOut="cs()" onClick="ga(this,event)"><font size=-1 class=f>Sponsored Links</font></td></tr>
I want the best way to get all the domain names out of it.
So for example in the above I would get, http://www.mysite.com and http://www.mysite2.com as the output.
I have tried doing this with the LinkExtor.pm module from cpan, but i'm not sure if this is really necessary. Can I just do it with a regular expression? Reading the string in and storing all occurences of http://www.somedomain.com ?
Thank you, your advice is as ever very much appreciated.