Làm cách nào để xác thực (hoặc thoát) trường tên của người dùng để nó không làm hỏng phần mềm gửi email của tôi?

Question

Khi gửi một thông điệp mà tôi có thể có một cái gì đó như thế này để thiết lập các trường Đến: (trong Perl)

To: "$name" <$email> 

Trong Perl tôi có thể xác nhận các phần $ email với Email :: trị nhưng làm thế nào để đảm bảo $ name part chấp nhận các ký tự Unicode nhưng không thể bị lừa vào việc gửi tới nhiều địa chỉ hoặc làm một số điều khó chịu khác? ví dụ. Đây

$email = 'bar@me.com'; 
$name = 'Foo" <foo@other.com>, "Bar'; 

dường như để tạo ra một trường Đến như thế này:

To: "Foo" <foo@other.com>, "Bar" <bar@me.com> 

gửi e-mail đến hai địa chỉ.

Answer 1

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; 

Answer 2

Có thể không có giải pháp đơn giản cho điều này. Tôi muốn giới thiệu một giải pháp bảo thủ bằng tay.

/\p{L}/ 

khớp với bất kỳ chữ cái unicode nào bằng bất kỳ ngôn ngữ nào. Vui lòng thêm dấu chấm hoặc dấu gạch ngang, tùy thuộc vào nền tảng văn hóa của phần mềm của bạn.