Tacno prebrojavanje

Kako napraviti regularni izraz koji ce da tacno proveri broj pojavljivanja nekog para tagova u tekstu?
npr
$s = "<table><tr>xxx</tr><tr>yyy</tr></table>"
if ($s =~ /<table><tr>.*?</tr></table>/) {
# prolazi i ako tabela ima vise od jednog reda
}

bitno je da to bude jedan regularni izraz ako je ikako moguce (moglo bi sa while da svaki put otkida po jedan <tr>.*?</tr> par i slicno, ali to mi ne odgovara)

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.

Ne radi se o tome da je potrebno uraditi jednostavno prebrojavanje <tr> tagova, vec je potrebno voditi racuna i o <td> tagovima i eventualnim tabelama koje se nalaze unutra, a hteo sam da sve bude jedan regexp da bi mogao da sve stavim u neku if {...}elsif {...} strukturu... Svejedno resio sam citav problem na drugi nacin (pisanjem f-je u C-u)

Hvala na odgovoru i korisnim informacijama

P.S.
Siguran sam da regexp koji sam naveo prolazi i ako tabela ima vise od jednog reda (vise od jednog <tr></tr> para)

E, to je vec dosta slozenije, ima nesto o tome ali nisam bas proucavao,
http://www.perl.com/pub/a/2003/08/21/perlcookbook.html



Cudno, meni kod pokretanja izbaci gresku za raj regexp.

pozdrav

mislim da bi ovo trebalo ad stoji ovako ako ti to treba:
if ((@s =~ /<table><tr>.*?</tr></table>/)==1)

Potpis

Nemanja Jakovljevic