Citat:
rivan:
if ($s =~ /<table><tr>.*?</tr></table>/) {
# prolazi i ako tabela ima vise od jednog reda
Jesi li siguran da ovo prolazi bez gresaka?
Ako hoces samo prebrojati <tr> redove onda,
my $s = "<table><tr>xxx</tr><tr>yyy</tr></table>";
print scalar @{[ $s =~ m!(<tr>.*?</tr>)!gis ]};
print "\n";
Vidi perldoc -f scalar za detalje, ukratko prvo se forsira list kontekst @{[ ]} pa onda scalar vrati koliko je bilo list elemenata jer bez toga regex samo vrati string koji je matchirao.