Problemas com a análise de dados da tabela em perl

Question

Nov 26, 2010, 10:50 AM

Problemas com a análise de dados da tabela em perl

Eu tenho um longo htdoc de padrão semelhante, que continua assim:

<td class="MODULE_PRODUCTS_CELL " align="center" valign="top" height="100">
<table width="100" summary="products"><tr>
<td align="center" height="75">
<a href="/collections.php?prod_id=50">
<img src="files/products_categories50_t.txt" border="0" alt="products" /></a><\br>
</td>
</tr>
<tr>
<td align="center">
<a href="/collections.php?prod_id=50"><strong>Buffer</strong><br />
</a>
<td>
</tr></table>
</td>

No html acima, quero extrair:

collections.php?prod_id=50files/products_categories50_t.txtBuffer

Eu tentei esse código para começar,

#!/usr/local/bin/perl

use strict;
use warnings;
my $filename =  'sr.txt';

open(FILENAME,$filename);
my @str = <FILENAME>;
chomp(@str);
#print "@str";

foreach my  $str(@str){    
     if ($str =~/<td class(.*)<a href(.*?)><\/td>/) {
         print "*****$2\n";
     }    
}

Este código é um teste. No entanto, ele traz apenas a última ocorrência e não cada ocorrência. Por quê?