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>


Reply via email to