perl – 如何验证(或转义)用户的名称字段,以便它不会破坏我的电

发布时间：2020-12-15 22:04:58 所属栏目：大数据来源：网络整理

导读：发送消息时我可以使用类似的东西来设置To字段:(在Perl中) To: "$name" $email 在Perl中,我可以使用Email :: Valid验证$email部分,但是如何确保$name部分接受Unicode字符但不能被欺骗发送到多个地址或做一些其他令人讨厌的事情？例如这个 $email = 'bar@me.co

发送消息时我可以使用类似的东西来设置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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!