Matching email addresses is difficult. But you're not
actually trying to validate them, so you can probably afford
to just "do your best", as it were :). This is the regexp
used in Pod::HTML for matching email addresses; it's not
going to catch everything, and it's probably going to
wrongly match some addresses. But it may help.
if ($word =~ /[\w.-]+\@\w+\.\w/) {
# looks like an e-mail address
This is used on an individual "word", where a word is
obtained by splitting a string on /\s+/. So that's one
example. If you look around a bit more, you can probably
find others.
For part 2 (sending the email)--if you're sending the same
content to each of the addresses, then you could perhaps
use Bcc to write all of the addresses to the message.
for my $addr (@mail_to) {
print SENDMAIL "Bcc: $addr\n";
}
print SENDMAIL "From: csorensen\@uptimeresources.net \n";
print SENDMAIL "Subject: South African tourism survey \n";
print SENDMAIL "Content-type: text/plain \n\n";
print SENDMAIL $content;
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|