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

前端之家收集整理的这篇文章主要介绍了regex – Perl中用于电子邮件分割的正则表达式前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我的同行问我,你将如何寻找最后一个@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";
}

猜你在找的Perl相关文章