Sendmail格式

Question

不確定我在哪里做錯了，但是當我將$ hostname變量放在“$ from”變量中時，sendmail不會在主題行中打印任何內容，否則它可以正常工作。

我想把“from”作為noreply @ hostname。

這是代碼：

my $f="test.txt";
my $h=`hostname`;       

if ( -s "$f" ) {

my $to='user@example.com';
my $from= "noreply\@$h";
my $subject='Test Error';

open(MAIL, "|/usr/sbin/sendmail -t");

## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
## Mail Body
print MAIL "Test Body\n";

close(MAIL);
}

Answer 1

您的$h在其末尾有一個尾隨換行符。

添加一個chomp來修復它：

my $h=`hostname`;     
chomp $h;

此外，使用詞法變量而不是全局文件句柄以及open的三參數形式是個好主意：

open my $mail, '|-', '/usr/sbin/sendmail -t';

## Mail Header
print $mail "To: $to\n";
print $mail "From: $from\n";
print $mail "Subject: $subject\n\n";
## Mail Body
print $mail "Test Body\n";

close $mail;