in reply to stripping email address regex

Using Email::Find is easier than dealing with what can what cannot be part of an email address: 
use Email::Find;

my $text   = 'foo@bar.com, bar@foo.com, a@b.com, 
              b@a.com, c@d.com';
my @emails = ();
find_emails($text,
    sub { push @emails, $_[1] if @emails < 3 } );

print "@emails\n";

[download]

Replies are listed 'Best First'.
Re^2: stripping email address regex
by Anonymous Monk on Sep 15, 2005 at 19:34 UTC
    Hi.

    I am using 

    use Email::Find;

#$v_email contains a string of emails
my @emails = ();
find_emails($v_email,
    sub { push @emails, $_[1] if @emails < 3 } );

$v_email = join(", ",@emails);

print "v_email: $v_email\n"

    [download]
    And it prints out the email addresses right but now it doesn't email them anymore. It appears to be in the correct format of email@address.com, email2@address.com, email3@address.com . I join it back into $v_email to print MAIL "To: $v_email";

    Any idea why it used to email but now that this is added, it doesn't?

[reply]
[d/l]

In Section Seekers of Perl Wisdom