Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: pattern matching and sendmail issues

by btrott (Parson)
on Jun 29, 2000 at 01:49 UTC ( [id://20275]=note: print w/replies, xml ) Need Help??


in reply to pattern matching and sendmail issues

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;

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://20275]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (6)
As of 2024-03-28 22:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found