如何將主題行包含到perl電子郵件腳本中？

Question

我對perl相當陌生，我怎樣才能讓主題行顯示在我的代碼下面的電子郵件中？現在它只發送出主題行的電子郵件。

收件人收到一封電子郵件，具體取決於與其電子郵件帳戶相匹配的郵政編碼，如下面的代碼所示。

此外，當它發送一封包含該數據的電子郵件時，電子郵件@符號不能正確顯示。我怎樣才能解決這個問題？

感謝

#!/usr/bin/perl 

print "Content-type: text/html\n\n"; 
%form=&parse_form(); 
$other_email=&lookup($form{'zipcode'}); 
$subject = 'Test Email'; 
$body= 
"Customer Name: $form{'name'}\n". 
"Customer Phone: $form{'phone'}\n". 
"Customer Email: $form{'email'}\n". 
"Customer Zip: $form{'zipcode'}\n"; 

mailsend('myemail@gmail.com',$body) and print "<b>Thank You!</b><br>\n"; 
mailsend($form{'email'},$body) and print "<b>Your email has been sent.</b><br>\n"; 
mailsend($other_email,$body) and print "<b>Please hit back to exit this page.</b><br>\n"; 

#helper functions 
sub lookup { 
    $contents=`cat postcodes.txt`; 
    ($result)=$contents=~m/\b$_[0]=(.*)\b/; 
    print "<b>Corresponding email address for zip $_[0] was [$result]</b><br>\n"; 
    return $result; 
} 

sub mailsubject { 
$subject = 'Test Email'; 
} 

sub mailsend { 
    open(MAIL, "|/usr/sbin/sendmail -t"); 
    print MAIL "To: $_[0]\n\n"; 
    print MAIL "See email below!\n\n"; 
    print MAIL "$_[1]\n"; 
    print MAIL "Thank you\n"; 
    close(MAIL); 
    return true; 
} 

sub parse_form { 
    ($hash{'name'}) = $ENV{'QUERY_STRING'}=~/name=(.*?)&/; 
    ($hash{'phone'}) = $ENV{'QUERY_STRING'}=~/phone=(.*?)&/; 
    ($hash{'email'}) = $ENV{'QUERY_STRING'}=~/email=(.*?)&/; 
    ($hash{'zipcode'}) = $ENV{'QUERY_STRING'}=~/zipcode=(.*?)&/; 
    return %hash; 
} 

Answer 1

你只需要添加一個額外的標頭的主題：

sub mailsend { 
    my ($recip, $subject, $body) = @_; # <- extract into variables 

    open(MAIL, "|/usr/sbin/sendmail -t"); 
    print MAIL "To: $recip\n"; 
    print MAIL "Subject: $subject\n"; # <- added Subject line 
    print MAIL "\n";     # end of headers 
    print MAIL "See email below!\n\n"; 
    print MAIL "$body\n"; 
    print MAIL "Thank you\n"; 
    close(MAIL); 

    return true; 
} 

這似乎是一個很多額外的工作，因爲已經有上CPAN一個Perl模塊，流程電子郵件以更簡單的方式：MIME:Lite

Answer 2

如果您能夠使用外部模塊，使用電子郵件::簡單和電子郵件::發件人將允許您不需要rei修復輪子：

use strict; 
use Email::Sender::Simple qw(sendmail); 
use Email::Simple; 
use Email::Simple::Creator; 

sub mailsend { 
    my ($to, $subject, $body) = @_; 
    my $email = Email::Simple->create(
     header => [ 
      To  => $to, 
      From => '"My Script" <myscript@example.com>', 
      Subject => $subject, 
     ], 
     body => $body, 
    ); 
    sendmail($email); 
}