Re^6: Print hash except first value

Hi,
In relation to my post above, i would like to email myself with the full list, and each other person a modified list (without their name/number). If i create a hash of names and email addresses, and say, i wanted to use sendmail, could anyone show me an implementation, that sets the "To: xxx" header with the email from a hash and the Content to the modified list? I have example code that uses sendmail here:

my $sendmail = "/usr/sbin/sendmail -t";
my $reply_to = "Reply-to: foo\@bar.com\n";
my $subject  = "Subject: Confirmation of your submission\n";
my $content  = "Thanks for your submission.";
my $to       = "bar\@foo.com\n";
my $send_to  = "To: ". $to;

open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL $reply_to;
print SENDMAIL $subject;
print SENDMAIL $send_to;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $content;
close(SENDMAIL);
[download]

Maybe Net::SMTP or another module maybe better, but i am all for the simple approach.

TIA Joe.

Comment on Re^6: Print hash except first value Download Code

Replies are listed 'Best First'.
Re^7: Print hash except first value by ikegami (Patriarch) on Dec 21, 2008 at 17:49 UTC
`my $to = $emails{$name};` [download] `my $content = join '', map { "$names[$_]\n" } grep { $_ != $skip } 0..$#names;` [download] You should be using MIME::Lite or something	[reply] [d/l] [select]