发送消息时我可以使用类似的东西来设置To字段:(在Perl中)
To: "$name" <$email>
在Perl中,我可以使用Email :: Valid验证$email部分,但是如何确保$name部分接受Unicode字符但不能被欺骗发送到多个地址或做一些其他令人讨厌的事情?例如这个
$email = 'bar@me.com'; $name = 'Foo" <foo@other.com>,"Bar';
似乎创建一个像这样的To字段:
To: "Foo" <foo@other.com>,"Bar" <bar@me.com>
发送电子邮件到两个地址.
解决方法
use Email::Address qw(); use Encode qw(encode); s{\R}{}g for $email,$name; # newlines be-gone my $to = Email::Address->new($name => $email)->format; print encode 'MIME-Header',$to;
原文地址:https://www.jb51.cc/Perl/171344.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。