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

[email protected] wrote:
> All I need is to extract the td with class "PhorumTableRowAlt thread".

<snip>

> pen(TXT, "links.txt") or die "Unable to open file";
> my @links = <TXT>;
> close (TXT);
> foreach my $link(@links) {

While the substring of interest spans over multiple lines, you are 
dealing with one line at a time. Hence it can never match.

> if ($link =~ m|<td class="PhorumTableRow thread" style="padding-left: 0px">(.*?)</td>|gsi) {

There is no such class in the extract you posted.

     open my $TXT, '<', 'links.txt' or die "Unable to open file: $!";
     my $links;
     {
         local $/;           # slurp the whole thing
         $links = <$TXT>;    # into a scalar
     }
     while ( $links =~
       m|<td\s+class="PhorumTableRowAlt thread".*?>(.+?)</td>|gsi ) {
         print "$1\n";
     }

-- 
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl