develooper Front page | perl.beginners.cgi | Postings from April 2008

Extracting TD's from a Text File (Regex Help).

Thread Next
From:
sara.samsara
Date:
April 8, 2008 05:22
Subject:
Extracting TD's from a Text File (Regex Help).
################ TEXT FILE ##################
<td class="PhorumTableRowAlt thread"  style="padding-left: 0px">
        
            <a href="http://mysite.com/link/here_goes?id=239">LINK</a>

    &nbsp;<span class="PhorumNewFlag"></span></td>

 <td class="PhorumTableRowAlt" nowrap="nowrap" width="150">
  <a href="http://mysite.com/link/here_goes?id=239">LINK</a> </td>
    <td class="PhorumTableRowAlt PhorumSmallFont" nowrap="nowrap" width="150">06/11/2007 12:29AM
 </td>
</tr>
############################################

The text file contains hundreds of tds structure like above. All I need is to extract the td with class "PhorumTableRowAlt thread". I have tried every possible option, but finally I am coming to you for any Regex for it? TIA.

HERE IS WHAT I AM DOING:

pen(TXT, "links.txt") or die "Unable to open file";
my @links = <TXT>;
close (TXT);
foreach my $link(@links) {
if ($link =~ m|<td class="PhorumTableRow thread" style="padding-left: 0px">(.*?)</td>|gsi) {
print "$1";}
}



But NOTHING coming up. No results.

Thanks for any help.

Sara.






Thread Next


Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About