Pattern match question

[流水音]

Hi, All:

I want to parse data from a HTML page, data like:

<tr >
                                
                        <td valign="top">
                                YEMEN
                        </td>
                
                        <td valign="top">
                                YE
                        </td>
                
                        </tr>
                
                        <tr class="zebra">
                                
                        <td valign="top">
                                <strong>Z</strong><a name="z.."></a>
                        </td>
                
                        <td valign="top">
                                &nbsp;
                        </td>
                
                        </tr>
                
                        <tr >
                                
                        <td valign="top">
                                ZAMBIA
                        </td>
                
                        <td valign="top">
                                ZM
                        </td>
                
                        </tr>
                
                        <tr class="zebra">
                                
                        <td valign="top">
                                ZIMBABWE
                        </td>
                
                        <td valign="top">
                                ZW
                        </td>
                
                        </tr>

=====================================
I want to match one <tr>...</tr> pair.

my code :

my $pattern = "(<tr (.|\\n)*<\\\/tr>)";
my $match;
while($data =~ /$pattern/g){   # $data has the content above
   $match = $&;
   print $match;
}

but I got the whole matches instead of one <tr>...</tr> pair each loop.

Do you guys have any ideas?

Thanks and Best Regards.

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/