Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks!
Is there a possibility to find and remove duplicated table rows in this peace of HTML table and display only unique ones? Here is the html code I am trying to work with:
<table cellpadding="0" cellspacing="0"> <thead> <tr> <td colspan="4">User Account</td> </tr> </thead> <tr> <td ><div><a href="test.pl?accounts=JOE@TEST.COM">JOE@TEST.COM</a> +</div> </td> <td class="Name"><div>$last, $first</div></td> <td class="tel">$tel</td> <td class="email"><div>$email</div></td> </tr> <tr> <td ><div><a href="test.pl?accounts=MARY@OK.COM">MARY@OK.COM</a></ +div> </td> <td class="Name"><div>$last, $first</div></td> <td class="tel">$tel</td> <td class="email"><div>$email</div></td> </tr> <tr> <td ><div><a href="test.pl?accounts=JOE@TEST.COM">JOE@TEST.COM</a>< +/div> </td> <td class="Name"><div>$last, $first</div></td> <td class="tel">$tel</td> <td class="email"><div>$email</div></td> </tr> <tr> <td ><div><a href="test.pl?accounts=MARY@OK.COM">MARY@OK.COM</a></ +div> </td> <td class="Name"><div>$last, $first</div></td> <td class="tel">$tel</td> <td class="email"><div>$email</div></td> </tr> </table>

..and have this at the end:
<table cellpadding="0" cellspacing="0"> <thead> <tr> <td colspan="4">User Account</td> </tr> </thead> <tr> <td ><div><a href="test.pl?accounts=JOE@TEST.COM">JOE@TEST.COM</a> +</div> </td> <td class="Name"><div>$last, $first</div></td> <td class="tel">$tel</td> <td class="email"><div>$email</div></td> </tr> <tr> <td ><div><a href="test.pl?accounts=MARY@OK.COM">MARY@OK.COM</a></ +div> </td> <td class="Name"><div>$last, $first</div></td> <td class="tel">$tel</td> <td class="email"><div>$email</div></td> </tr> </table>

Thanks!

Replies are listed 'Best First'.
Re: Finding duplicated items in table.
by Corion (Patriarch) on Jan 20, 2010 at 14:13 UTC

    See perlfaq4 about "duplicate". Just parse your table into the appropriate fragments, then remove the duplicate fragments, then output the rest.