regex – Perl中用于电子邮件分割的正则表达式

发布时间：2020-12-16 06:10:34 所属栏目：大数据来源：网络整理

导读：我的同行问我,你将如何寻找最后一个@if存在的@if. 例： j@ssi@aliencoders.com@..coding.com 所以它应该将j @ ssi @ aliencoders.com显示为用户名,将..coding.com显示为域名. Perl中是否有任何一个衬垫正则表达式可以获得所需的输出？解决方法使用Email ::

我的同行问我,你将如何寻找最后一个@if存在的@if.

例：

j@ssi@aliencoders.com@..coding.com

所以它应该将j @ ssi @ aliencoders.com显示为用户名,将..coding.com显示为域名.
Perl中是否有任何一个衬垫正则表达式可以获得所需的输出？

解决方法

使用Email :: Address.这些事情对于简单的正确做法来说太难了.糟糕,没有足够接近读取操作,但此代码适用于拆分电子邮件.

use strict;
use warnings;
use Email::Address;

my $line = 'bill@example.com;joe@example.com';
my @addresses = Email::Address->parse($line);
for my $address (@addresses) {
  print $address->format,"n";
}

（编辑：李大同）

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