----- Original Message -----
From: <[EMAIL PROTECTED]>
To: "James Kelty" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Wednesday, July 23, 2003 1:21 AM
Subject: RE: Reg Exp Help...
>
> ------------------------------------------------
> On 22 Jul 2003 09:15:29 -0700, James Kelty <[EMAIL PROTECTED]> wrote:
>
> > I know that this is a common request, but I have a question about
> > parsing an email box. I have a UW IMAP box, and I am trying to extract
> > all the emails where the line starts with From: blah blah. Now, getting
> > those lines isn't the issue, but since each email is a little different,
> > I am having a problem. Given this list, how would I extract JUST the
> > email address?
> >
> > From: "James Kelty" <[EMAIL PROTECTED]>
> > From: [EMAIL PROTECTED]
> > From: <[EMAIL PROTECTED]"
> >
< snipped >
> >
>
> This is a relatively complex task since e-mail addresses can come in so
many different forms and contain so many different types of values. Your
best bet may be to either use a module for parsing the whole message which
is always advised, or look at the source for one of the better message
header parsing modules to determine how they are doing it. Sorry this is
such a non-specific answer, but rather than suggesting a way to poorly
re-invent the wheel, I prefer suggesting that this should be avoided....
>
Hmm.... The OP seems not trying to do somewhat Email::Valid,
but to fetch the mail address from a line only... ie, try to cut out
something not expect to left... I hope I bet it correct..
sub filter
{ my $line = shift; chomp ($line);
chop ($line) if ($line =~ /[^\w]$/; # mail must end with tld or
country code
my ($waste, $mailAd) = split / /, $line ; # So 'From: ' is kicked
out
$mailAd =~ s/^[^\w]//; # so '<' or '"' will be kicked out from head
too...
# Perhaps the regex above can be [^\w|\\] if [EMAIL PROTECTED] is
valid
# I am not sure....
return $mailAd
}
Code not tested, but HTH
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
