Rob Dixon wrote: > 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 > > >
I'm not sure what you mean. The script I posted doesn't work for me. So far, everything you've suggested does. Mathew -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
