Mathew Snyder wrote: > > Rob Dixon wrote: >> >> Look at the code below. Is this what you get? >> >> >> use strict; >> use warnings; >> >> use Email::Address; >> >> my $data = q| >> <tr class="oddline" ><td class="collection-as-table" > <b><a >> href="/Ticket/Display.html?id=52549">52549</a></b></td><td >> class="collection-as-table" ><b><a >> href="/Ticket/Display.html?id=52549">***POSSIBLE SPAM*** Of fight a >> implicit</a></b></td><td class="collection-as-table" >open</td><td >> class="collection-as-table" >Security</td><td class="collection-as-table" >>>> msnyder</td><td class="collection-as-table" >62</td></tr><tr >> class="oddline" >>>> <td class="collection-as-table" ></td><td class="collection-as-table" >>>> <small>[EMAIL PROTECTED]</small></td><td >> class="collection-as-table" >>>> <small>13 hours ago</small></td><td class="collection-as-table" >>>> <small></small></td><td class="collection-as-table" ><small>13 hours >> ago</small></td><td class="collection-as-table" ><small>0</small></td></tr> >> |; >> >> my @addrs = Email::Address->parse($data); >> >> print $_->address, "\n" foreach @addrs; >> >> **OUTPUT** >> >> [EMAIL PROTECTED] >> >> > > Yes, that is exactly what I get.
Then can you post something that /doesn't/ work for you please? Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
