如何使用 Perl 的 sendmail 在 "from" 字段中使用特殊字符（星号）

Question

我正在使用 Perl 的 SENDMAIL 从我的网站接收电子邮件：

open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
    print SENDMAIL "From: $from\n";
    print SENDMAIL "Subject: $subject\n";
    print SENDMAIL "To: $to\n";
    print SENDMAIL "Content-type: text/plain\n\n";
    print SENDMAIL $message;
close(SENDMAIL);

我想将 $from 变量修改成这样：

$from = "&#x2605; David Jones <david.jones@oozicle.com>"

现在发生的情况是我只看到了符号等，而没有显示星号。

我知道可以使用特殊字符，因为我收到了包含特殊字符的垃圾邮件。

是否可以使用 SENDMAIL 执行此操作？

Answer 1

use Encode qw( encode );

my $name = "\x{2605} David Jones";
my $addr = 'david.jones@oozicle.com';

my $from_header = encode('MIME-Header', $name) . ' <' . $addr . '>';

如何使用 Perl 的 sendmail 在 "from" 字段中使用特殊字符（星号）

How is it possible to use a special character (a star) in the "from" field using Perl's sendmail

perl

email

sendmail

mime

html-entities